Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, resultado as double

        Console.WriteLine("Escribe tu primer número")

        a = Console.ReadLine()

        Console.WriteLine("Escribe tu segundo numero")

        b = Console.ReadLine()

        Resultado = a mod b

        Console.WriteLine("El resultado es:{0}",resultado)

        If Resultado >= 0 then

            Console.WriteLine("Su número no es entero")

        End if

    End Sub

End Module