IsNumber

From scripting
Jump to: navigation, search
Function IsNumber(ValueObj As String) As Boolean
On Error GoTo Blast
Dim HHH As Double
HHH = CDbl(ValueObj)
IsNumber = True
Exit Function
Blast:
IsNumber = False
End Function