'Função (If, End If) Verifica entre 2 Numeros qual é o Maior

Sub procMaior_Numero()
'Função If, End If Verifica entre dois numeros qual é o Maior
Dim a     As Integer
Dim b     As Integer
Dim maior As Integer
a = Val(InputBox("Digite um Numero Inteiro Positivo", "Número a"))
b = Val(InputBox("Digite outro NumeroInteiro Positivo", "Número b"))
 
    maior = a
        If maior < b Then
            maior = b
        End If
    MsgBox " O Maior é : " & maior
End Sub