if not IsNumeric(trim(num)) then

   处理代码

end if