Posted On 2017-07-14 by VB6Boy
Tags: VB6 Miscellaneous 
Views: 94

This is a simple function to include in a module for converting letters to digits. So if you wanted to map a name to a phone number.

For example, if you were given a phone number such as 1-800-CALL-NOW, this function would convert it to 1-800-225-5669.

Function LetterToDigit(ByVal strPhoneLetter As String) As String

  Dim intDigit As Integer

  intDigit = Asc(UCase$(strPhoneLetter))

  If intDigit >= 65 And intDigit <= 90 Then
    If intDigit = 81 Or 90 Then ' Q or Z
      intDigit = intDigit - 1
    End If
    intDigit = (((intDigit - 65) \ 3) + 2)
    LetterToDigit = intDigit
    LetterToDigit = strPhoneLetter
  End If

End Function

About the Author

VB6Boy has posted a total of 31 articles.

Comments On This Post

No comments on this post yet!

Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.

Or you can drop a note to the administrators if you're not sure where you should post.

Your IP address is:

Before you can post, you need to prove you are human. If you log in, this test goes away.

Code Links