'Função (If And Then, ElseIf, Else, End If) Verifica entre 3 numeros o Maior.

Sub procMaior_Tres()
'Função If And Then, ElseIf, Else Verifica entre 3 numeros o Maior.
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim maior As Integer
    a = Val(InputBox("Escreva um Numero", "Número a"))
    b = Val(InputBox("Escreva outro Numero", "Número b"))
    c = Val(InputBox("Escreva outro Numero", "Número C"))
 
     If (a > b) And (a > c) Then
        maior = a
        ElseIf (b > c) Then
            maior = b
        Else
            maior = c
     End If
     MsgBox " O Maior é :  " & maior
End Sub