Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    sub Main()

        Dim num1,num2,remain As Integer

        console.writeline("Enter number one: ")

        num1 = console.readline

        console.writeline("Enter number two: ")

        num2 = console.readline

        If num1 = 0 then

            console.writeline("Error: you can't divide by zero")

        Else    

            remain = num2 Mod num1

            If remain = 0 then

                console.writeline(num2 & " is exactly divisible by " & num1)

            Else console.WriteLine(num2 & " is not divisible by " & num1 & " and there is a remainder of " & remain)

            End If

        End If

    End sub

End Module

​