Module Module1

    Sub Main()
        'Initialize counter
        Dim counter As Integer = 0

        'Use for loop to generate values from 1 to 100 (Inclusive)
        For counter = 1 To 100
            'print out counter when counter can be divided by 10 without any remainders
            If (counter Mod 10 = 0) Then
                Console.WriteLine("counter: {0} ", counter)
            End If

        Next counter

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

End Module