dim i as integer
dim j as integer
for i=1 to len(str1)
j=asc( mid$(str1,i,1))
if j <=vbkey9 or j >=vbkey0 then
msgbox i
exit for
end if
next i
dim j as integer
for i=1 to len(str1)
j=asc( mid$(str1,i,1))
if j <=vbkey9 or j >=vbkey0 then
msgbox i
exit for
end if
next i
dim i as integer
dim num as integerfor i=1 to len(abcd)
if isnumeric(mid(abcd,i,1)) then
num=val(char)
xxxx=num
exit sub
end if
next i
end function