Find greater among two numbers

 Imports System

Module Program

    Sub Main(args As String())

        Dim a As Integer

        Dim b As Integer

        Console.WriteLine("enter the value of a")

        a = Console.ReadLine()

        Console.WriteLine("enter the value of b")

        b = Console.ReadLine()

        If (a > b) Then

            Console.WriteLine(a & " is greater than" & b)

        ElseIf (a = b) Then

            Console.WriteLine("Both numbers are equal")

        Else

            Console.WriteLine(b & " is greater than" & a)

        End If

        Console.ReadKey()

    End Sub

End Module