'Verifica se numero maior ou menor que 10 teste If Else End If

Sub proctestif()
'verifica se numero maior ou menor que 10 teste If 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 < " & numero
            Else
                mensagem = "Numero menor que 10 => " & numero
            End If
            MsgBox mensagem

End Sub