Imports System

Public Module Module1

    Public Sub Main()

        dim a,x as integer

        Console.WriteLine("Input a number:")

        a = console.ReadLine()

        x = 3

        do

        a = a-x

        loop until a <= 0 

        if a = 0 then

            Console.WriteLine("Multiple of 3")

        else 

            Console.WriteLine("Not a multiple of 3")

        end if

    End Sub

End Module