Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Use If and IsNumeric function to check user input

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