Imports System

Public Module GreatestOfThree

    Public Sub Main()

        Dim num1, num2, num3 As Integer

        'User Input

        Console.WriteLine("Enter Three num: ")

        num1 = Console.ReadLine()

        num2 = Console.ReadLine()

        num3 = Console.ReadLine()

​

        If (num1 > num2 And num1 > num3) Then

            Console.WriteLine(num1 & " is greater")

        ElseIf (num2 > num1 And num2 > num3) Then

            Console.WriteLine(num2 & " is greater")

        ElseIf (num3 > num1 And num3 > num2) Then

            Console.WriteLine(num3 & " is greater")

        End If

    End Sub

End Module