Imports System
Imports System.Text
Public Class MainClass
Shared Sub Main()
Dim buffer1, buffer2, buffer3 As StringBuilder
Dim quotes As Char = ChrW(34)
buffer1 = New StringBuilder()
buffer2 = New StringBuilder(10)
buffer3 = New StringBuilder("hello")
Console.WriteLine("buffer1 = " & quotes & buffer1.ToString() & _
quotes)
Console.WriteLine("buffer2 = " & quotes & _
buffer2.ToString() & quotes)
Console.WriteLine("buffer3 = " & quotes & _
buffer3.ToString() & quotes)
End Sub ' Main
End Class