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