Hi
How abot having a little as follows:
'S = String to be checked for a number
N=""
For i=0 to StrLength(s)
i1=Asc(SubString(S,i,1))
if i1=46 or (i1>=48 and i1<=57) then
N=N & i1
end if
Next i
Msgbox(N)
I have not checked it, but along this line should work.
Regards
Michael
|