Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer = 1    'This declares number as a variable'

        for number = 1 to 100

        console.WriteLine(number)  'This runs all numbers from 1 to 100'

        number = number + 1    'This adds one to all numbers'

    next number                    'This moves on to the next number in the sequence'

    End Sub

End Module