If IsError(iData) = True Then MsgBox "Здесь есть ошибка !!!"
If IsDate(iData) = True Then MsgBox "Здесь находится дата"
If IsNumeric(iData) = True Then MsgBox "Это и впрямь число"
If IsError(iData) = True Then MsgBox "Здесь есть ошибка !!!"
If IsDate(iData) = True Then MsgBox "Здесь находится дата"
If IsNumeric(iData) = True Then MsgBox "Это и впрямь число"