Imports System

Imports System.Text

Public Module Module1

    Public Sub Main()

        Dim sb As StringBuilder = New StringBuilder(64)

        sb.Append("x"c, 64) '64 charcters.

        Console.WriteLine("Results:")

        Console.WriteLine("{0,-68} Capacity={1}", sb.ToString, sb.Capacity.ToString)

​

        sb.Capacity += 1

        sb.Append("y") 'One more.

        Console.WriteLine("{0,-68} Capacity={1}", sb.ToString, sb.Capacity.ToString)

    End Sub

End Module