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.