Imports System
Imports System.Text
Public Class MainClass
Shared Sub Main()
Dim builder1 As StringBuilder = _
New StringBuilder("Happy Birthday Jane")
Dim builder2 As StringBuilder = _
New StringBuilder("good bye greg")
Console.WriteLine("Before Replacements:" & vbCrLf & _
builder1.ToString() & vbCrLf & builder2.ToString())
builder1.Replace("Jane", "Greg")
builder2.Replace("g"c, "G"c, 0, 5)
Console.WriteLine("After Replacements:" & _
vbCrLf & builder1.ToString() & vbCrLf & _
builder2.ToString())
End Sub ' Main
End Class