Module Module4

    Sub Main()

        Dim counter As Integer = 0
        Dim counterb As Integer = 0

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

            'Use another counter variable to count from 1 to 10
            'print out counter when counterb reaches 10
            counterb += 1
            If (counterb = 10) Then

                Console.WriteLine("counter: {0} ", counter)
                counterb = 0

            End If

        Next counter

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

    End Sub

End Module