Filtering text out of a string

[John liem]

I want to filter out the numbers in a text string in a query, how can I do this?
Example: 12a34d36wk11 to adwk
John.

 

[Mile-O]

Put this in a module:

Public Function RemoveNumbers(strTemp As String) As String
    Dim intCounter As Integer
    Dim intAscii As Integer
    For intCounter = 1 To Len(strTemp)
        intAscii = Asc(Mid(strTemp, intCounter, 1))
        If intAscii < 48 Or intAscii > 57 Then
            RemoveNumbers = RemoveNumbers & Chr(intAscii)
        End If
    Next intCounter
End Function

In the query, create a calculated field:

NewField: RemoveNumbers([OldField])

 

[John liem]

Put this in a module:

Public Function RemoveNumbers(strTemp As String) As String
    Dim intCounter As Integer
    Dim intAscii As Integer
    For intCounter = 1 To Len(strTemp)
        intAscii = Asc(Mid(strTemp, intCounter, 1))
        If intAscii < 48 Or intAscii > 57 Then
            RemoveNumbers = RemoveNumbers & Chr(intAscii)
        End If
    Next intCounter
End Function

In the query, create a calculated field:

NewField: RemoveNumbers([OldField])

Thanks Phile .....