1 2 3 4 5 6 7 8 9 10 11 12 | 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")) |