Public Function StripNumbers(AnyAddress As String) As String
Dim intSpace As Integer
'Step 1 - is there a number in the first character?
If IsNumeric(Left(AnyAddress,1)) = False Then
StripNumbers = AnyAddress
Exit Function
End If
'Step 2 - is there a space in the address
IntSpace = InStr(AnyAddress," ")
If IntSpace = 0 Then
StripNumbers = AnyAddress
ExitFunction
End If
'Prefix an asterisk to the main body of the address
StripNumbers = "*" & Mid(AnyAddress,IntSpace)
End Function