Module Module1

    Sub Main()

        'declaration
        Dim counter As Integer

        'A string variable to store the numbers as string values sop that they
        'can be printed
        Dim strNumberRow As String

        counter = 0
        strNumberRow = ""

        'Use for loop to count from 1 to 100
        For counter = 1 To 100

            If (counter < 10) Then
                strNumberRow += " "
            End If

            'If the number can be divided by 10 without any remainder display it with a new line
            If (counter Mod 10 = 0) Then
                strNumberRow += Convert.ToString(counter) + vbCrLf
            Else 'else display it with a space
                strNumberRow += Convert.ToString(counter) + " "
            End If

        Next counter
        Console.WriteLine(strNumberRow)

        Console.WriteLine(vbCrLf + "Please Press any Key to Exit")
        System.Console.ReadKey()
    End Sub

End Module