'Escolher de 3 numeros digitados e mostrar o maior. If, ElseIf ,Else ,End Else

Sub TresNumeroQualMaior()
'Escolher de 3 numeros digitados e mostrar o maior.
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer

n1 = CInt(InputBox("Digite o Primeiro Numero : "))
n2 = CInt(InputBox("Digite o Segundo Numero : "))
n3 = CInt(InputBox("Digite o Primeiro Numero : "))

    If n1 > n2 And n1 > n3 Then
    MsgBox n1 & " É o Maior"
    ElseIf n2 > n3 Then
    MsgBox n2 & " É o Maior"
    Else
    MsgBox n3 & " É o Maior"
    End If
End Sub