If IsNumeric(Value) = True Then MsgBox "The value is numeric" Else MsgBox "The value is not numeric" End If