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