Imports System

Public Module Module1

    Public Sub Main()

        dim counter as integer = 0 

        For i = 1 to 100

        If i Mod 3 = 0 then

            counter = counter + 1

        end if

    next 

    Console.WriteLine(Counter)

    End Sub

End Module