Imports System
Imports System.Text
Class Sample
Public Shared Sub Main()
Dim charactersBuilder As New StringBuilder("abc")
Dim characters As String
charactersBuilder.Append(Chr(0))
charactersBuilder.Append("def")
characters = charactersBuilder.ToString()
Console.WriteLine(characters.Length)
End Sub 'Main
End Class 'Sample