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