Sub macro_if() Dim number
number = InputBox("Type in a number, please!") If Not IsNumeric(number) Then
MsgBox "This is no number!"
ElseIf number > 10 Then
MsgBox "The number is larger than 10."
Else
MsgBox "The number is smaller then or equal 10." End If End Sub