' Digite dois numero verificar qual é o maior deles.

Sub DoisNumeroQualMaior()
' Digite dois numero verificar qual é o maior deles.
Dim n1 As Integer
Dim n2 As Integer
    n1 = CInt(InputBox("Digite o Primeiro Numero : "))
    n2 = CInt(InputBox("Digite o Segundo Numero : "))
        If n1 < n2 Then
        MsgBox n2 & " É o Maior Valor"
        ElseIf n1 = n2 Then
        MsgBox n1 & " Valor Ingual  "
        Else
        MsgBox n1 & " É o Maior Valor "
        End If
End Sub