dim I as integer
dim mioNum as string
dim car as string
mioNum=""
for I=1 to len(pippo)
car=mid(pippo,I,1)
if isNumeric(car) then
mioNum=mioNum & car
end if
next

alla fine del ciclo for, la variabile "mioNum" conterrà i numeri che ha trovato nella stringa