Fjern tal, vis kun tekst

Dim i As Integer
For i = 1 To Len(Me.YourField & "")

If IsNumeric(Mid(Me.YourField, i, 1)) Then

...

End if

Sub numstr(StrIn As String)
If InStr(StrIn, "0") + InStr(StrIn, "1") + InStr(StrIn, "2") + InStr(StrIn, "3") + _
    InStr(StrIn, "4") + InStr(StrIn, "5") + InStr(StrIn, "6") + InStr(StrIn, "7") + _
    InStr(StrIn, "8") + InStr(StrIn, "9") > 0 Then
    'Strengen indeholder tal...
Else
    'Strengen indeholder ingen tal...
End If
End Sub