Here is a solution.
If a tests fails, add an OR statement and please let us know. No scientific notation.
If a tests fails, add an OR statement and please let us know. No scientific notation.
Code:
FUNCTION isNumeric(Answer AS STRING) AS LONG Answer = TRIM$(Answer) 'may be required if right-justified text IF (LEN(Answer) = 0) OR _ (VERIFY (Answer , ".-0123456789")) OR _ (RIGHT$(Answer,1) = ".") OR _ (INSTR(-1,Answer,"-") > 1) OR _ (TALLY(Answer,".") > 1) THEN EXIT FUNCTION 'exit, return 0 not-numeric END IF FUNCTION = -1 'numeric END FUNCTION
Comment