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