Imports System
Imports System.Text
Class Sample
Public Shared Sub Main()
Dim sb As New StringBuilder()
Dim line As String = "A line of text."
Dim number As Integer = 123
sb.AppendLine("The first line of text.")
sb.AppendLine(line)
Console.WriteLine(sb.ToString())
End Sub
End Class