Imports System

Public Module Module1

    Public Sub Main()

        Dim num as integer = 199

        For i as integer = 100 to num

             Console.WriteLine(i)

    Next

    End Sub

End Module