Imports System.Text
Public Module App
Public Sub Main()
Dim sb As New StringBuilder("ABC", 50)
sb.Append(New Char() {"D"c, "E"c, "F"c})
sb.AppendFormat("GHI{0}{1}", "J"c, "k"c)
sb.Replace("k", "K")
Console.WriteLine("{0} chars: {1}", sb.Length, sb.ToString())
End Sub
End Module