Public Function Checkbig (strsource as string) as boolean
DIM IDX As Long
DIM BYTETEMP () AS BYTE
Checkbig = false
For idx = 1 to len (strsource)
ByTetemp = StrConv (MID (strsource, idx, 1), vbfromunicode)
IF ubound (byteTemp)> 0 THEN
IF (ByteTemp (1)> = 64) and (byteTemp (1) <= 126) THEN
Checkbig = TRUE
EXIT for
END IF
END IF
Next idx
END FUNCTION