Class Sample Public Shared Sub Main() Dim numbers() As Integer = { -123123, 0, 1, 123123 } For Each number As Integer In numbers Console.Write("{0,11:D3}", number) Next End Sub End Class