'Verifica se o numero é maior ou menor que 10

Sub proc1()
'Verifica se o numero é maior ou menor que 10
    Dim numero As Integer
    Dim mensagem As String
    numero = Val(InputBox(" Digite um numero"))
   
    If numero > 10 Then
        mensagem = "Numero maior que 10"
    Else
        mensagem = "Numero não e maior que 10"
    End If
    MsgBox mensagem
End Sub