Imports System
Imports System.Text
Public Class MainClass
Shared Sub Main()
Dim buffer As StringBuilder = New StringBuilder()
Dim string1, string2 As String
string1 = "This {0} costs: {1:C}." & vbCrLf
Dim objectArray As Object() = New Object(1) {}
objectArray(0) = "car"
objectArray(1) = 1234.56
buffer.AppendFormat(string1, objectArray)
string2 = "Number:{0:D3}. " & vbCrLf & _
"Number right aligned with spaces:{0, 4}." & vbCrLf & _
"Number left aligned with spaces:{0, -4}."
buffer.AppendFormat(string2, 5)
Console.WriteLine(buffer.ToString())
End Sub
End Class