Public Function TelephoneNumberLettersToDigits( _
ByVal vTelephoneNumber As Variant _
) As Variant TelephoneNumberLettersToDigits("1-800-554-UNIX") = "1-800-554-8649"
TelephoneNumberLettersToDigits("1-800-QUIT-NOW") = "1-800-Q848-669"See also: StringReplacements Class
TranslateString FunctionNote: There is no translation for the letters "Q" and "Z"--they remain unchanged in the result string. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.