I have a database field that has a free format Alphanumeric field (text string), I need to be able to extract just the numbers from this filed, is thier a way of stripping away the text to be left with just the numbers.
Function getNumbers(SomeString As String) As Double
Dim I As Double
getNumbers = 0
For I = 1 To Len(SomeString)
If Mid(SomeString, I, 1) Like "#" Then getNumbers = getNumbers & Mid(SomeString, I, 1)
It works like so...