[VB6] Estrapolare numeri da una stringa

[hunt]

ciao ragazzi...
qualkuno conosce un qualche algoritmo che mi restituisca solamente i numeri all'interno di una stringa ? ? ?

ESEMPIO:

dim pippo as string
pippo = "topolino_1"

mi restituisca "1"

oppure

dim pippo as string
pippo = "topolino_34"

mi restituisca "34"

come posso fare ? ? ?

[Jupy64]

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

[hunt]

grazie mille!!! ;-)