If IsNumeric(iData) = True Then MsgBox "Это и впрямь число"
Обратите внимание на отличие Basic функции IsNumeric и стандартной функции рабочего листа ЕЧИСЛО/IsNumber :
code: #vba
MsgBox IsNumeric(123)
MsgBox IsNumeric("123")
MsgBox Application.IsNumber(123)
MsgBox Application.IsNumber("123")
MsgBox IsNumeric(Empty) 'IsNumeric(Range("IV65536"))
MsgBox Application.IsNumber(Empty) 'Application.IsNumber(Range("IV65536"))