così va meglio
codice:
function FindNum(codice)
dim indice
indice=0

for i=1 to len(codice)
 indice=InStr("0123456789",Mid(codice,i,1))
 if indice>0 then exit for
 next

if indice>0 then
FindNum=int(right(codice,len(codice)-(indice-1)))
else
FindNum=codice
end if
end function