IsConvertibleToNumber

Function IsConvertibleToNumber(InputStr As Variant) As Boolean
On Error GoTo Blast
HHH = CDbl(InputStr)
If InputStr = "" Then
    IsConvertibleToNumber = False
    Exit Function
End If
IsConvertibleToNumber = True
Exit Function
Blast:
IsConvertibleToNumber = False
End Function