'Verifica se numero maior ou menor que 10 função "If then" "ElseIf then" "Else" "End If"

Sub proctesteIF()
'verifica se numero maior ou menor que 10 função "If then"  "ElseIf then" "Else" "End If"
Dim numero   As Integer
Dim mensagem As String

numero = Val(InputBox("Digite um Valor"))

    If numero > 10 Then
        mensagem = " numero maior que 10  "
    ElseIf numero = 10 Then
        mensagem = " numero igual a 10 "
    Else
        mensagem = " numero não é maior que 10 "
    End If
    MsgBox mensagem
End Sub