Finde et tal i en tekststreng

Du kan lave en function som denne, denne gør brug af regular expression og fjere alle karakter som ikke er tal, så tallet er tilbage.:

function findtal(inputstreng)
dim regcon
set regcon = new RegExp
regcon.ignoreCase = true
regcon.Global = true
regcon.pattern = "([^\d])"
findtal = regcon.replace(inputstreng,"")
end function


Så kan den kaldes sådan her:

str = "Netto + 12"
tal = findtal(str)

Coool send et svar, lige det jeg skulle bruge...

Ok :)

Tusind tak