Imports System Imports System.Text Class Sample Public Shared Sub Main() Dim sb As StringBuilder sb = new StringBuilder sb.Append("1234") Dim star As Char = "*"c sb.Insert(3, star, 2) Console.WriteLine(sb.ToString()) End Sub End Class