Well I know its kinda late and i couldnt wait so here it is if anyone wants to use it..

If you make any modifications to speed up or better it, let me know so i can incorperate them. ;)

*Returns .t. if the string contains any punctuation, .f. if it does not contain punctuation, 0 if its not a string.
*Note: does not test for the single quote character ex: '
FUNCTION ContainPunc
LPARAMETERS lcstring

IF TYPE('lcstring')<>'C'
RETURN 0
ELSE
FOR i = 1 TO LEN(lcstring)
lcCharToTest=SUBSTR(lcstring, i,1)
IF INLIST(lcCharToTest, '!','@','#','$','%','^','%','&','*','(',')','_','-','+','=','~','[',']','{','}','\','|',';',':')=.T. OR INLIST(lcCharToTest, '<','>','.','"',',','/','?')=.T.
RETURN .T.
ENDIF
ENDFOR
RETURN .F.
ENDIF
ENDFUNC

Take care...
Eric