"GS" wrote:


Function FormatPhoneNumber$(TextIn$)
' .......
End Function 'FormatPhoneNumber()

Function FilterString$(ByVal TextIn$, Optional IncludeChars$, _
' ........
End Function 'FilterString()


Hey Gary. Thanks again for this code. I knew you always
had an alternative to regular expressions.