I am sure there is a cleaner way to do this..

Code:

CLS
BREAK ON
$v1=1
$v2='test'

ISNUMERIC($v1)
ISNUMERIC($v2)

FUNCTION ISNUMERIC($val)
 DIM $i
 FOR EACH $i IN SPLIT('1 2 3 4 5 6 7 8 9 0')
  IF INSTR($val,$i)
    ?$val
    ?'Integer check OK'
    EXIT 1
  ELSE
    ?$val
    ?'Integer check not OK'
  ENDIF
 NEXT
ENDFUNCTION


Comments, suggestions are welcome.

Thanks,

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's