Erstatning af val funktionen

Function GetAllInts(SourceString As String)
  Dim ChkString
  Dim retVal
  Dim Pos As Long
  ChkString = \"1234567890\"
  For Pos = 1 To Len(SourceString)
    If InStr(1, ChkString, Mid(SourceString, Pos, 1)) > 0 Then retVal = retVal & Mid(SourceString, Pos, 1)
  Next Pos
  GetAllInts = retVal
End Function

Debug.Print GetAllInts(\"dette0er1en2test3\")

Tak for det !!! :-) du er f****** god

Jamen selv tak - det var en fornøjelse at hjælpe :o)

Hvis nu du sidder med en laaaaang tekst der skal køres igennem det (det gør du sikkert ikke men anyway..) så er det nok hurtigere at bruge en regular expression:

Project>References>Microsoft VBScript Regular Expressions 1.1 (sæt hak i den)

Dim rx As RegExp
Set rx = New RegExp

rx.Global = True
rx.Pattern = \"[^0-9]\"
Text1.Text = rx.Replace(Text1.Text, \"\")