Point til proaccess

Takker...

Du får lige lidt yderligere valuta for pointene:

-- CODE START --

dim strX
strX = inputbox(\"Indtast tekststreng:\")
msgbox str2lng(strX)

Function str2lng(strValue)
  Dim intLoop
  intLoop = 1
  While Instr(\"0123456789\", Mid(strValue, intLoop, 1)) > 0
    intLoop = intLoop + 1
  Wend
  str2lng = CLng(\"0\" + Left(strValue, intLoop-1))
End Function

-- CODE SLUT --

Aftestet og virker...

Jo tak, jeg har selv testet, at det virker fuldstændig efter hensigten. Mange tak!