Imports System

Public Module Module1

​

    Public Sub Main()

        Dim number1, number2 As double

        Console.Write("Please enter number one: ")

        number1 = Console.ReadLine

        Console.Write("Please enter number two: ")

        number2 = Console.ReadLine

​

        If number1 = number2 Then

            Console.WriteLine("The numbers are equal.")

        Else

        Console.WriteLine("The numbers aren't equal.")

​

        End If

    End Sub

End Module