Language Basics VB.Net

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