Determinación Número Mayor

Module Module1
    Dim N1 As Integer
    Dim N2 As Integer
    Dim N3 As Integer
    Dim NM As Integer

    Sub Main()
        Console.WriteLine("Ingrese Primer Numero Entero")
        N1 = Console.ReadLine()
        Console.WriteLine("Ingrese Segundo Numero Entero")
        N2 = Console.ReadLine()
        Console.WriteLine("Ingrese Tercer Numero Entero")
        N3 = Console.ReadLine()
        If (N1 > N2) And (N1 > N3) Then
            Console.WriteLine("Primer Numero Entero")
            Console.ReadLine()
        Else

        End If
        If (N2 > N3) Then
            Console.WriteLine("Segundo Numero Entero")
            Console.ReadLine()
        Else
            Console.WriteLine(" Tercer Numero Entero")
            Console.ReadLine()
        End If
    End Sub

End Module