Imports System.Text
Imports System.Windows.Forms
Module Tester
Sub Main()
Dim builder1 As StringBuilder = New StringBuilder("Happy Birthday")
Dim builder2 As StringBuilder = New StringBuilder("good bye ")
builder1.Replace("H", "G")
builder2.Replace("g"c, "G"c, 0, 5)
Console.WriteLine(builder1.ToString() & vbCrLf & _
builder2.ToString())
End Sub ' Main
End Module
Gappy Birthday
Good bye