Imports System.Text Module Module1 Sub Main() Dim SB As StringBuilder = New StringBuilder(26) SB.Append("ABCDEFGHIJKLMNOPQRSTUVWYZ") SB.Chars(4) = "e" SB.Chars(0) = "a" SB.Replace("aBCDe", "ABCDE") Console.WriteLine("Ending StringBuilder: " & SB.ToString()) End Sub End Module