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

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 22 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.

Recent Forum Posts

Advanced search added
dwirch posted on September 23, 2017 at about 13:44 in Site News

Job Spammer: Gaurav Mehta - AgreeYa Solutions
dwirch posted on September 22, 2017 at about 10:35 in Spammers

Job Spammer: Prutha Siri - Javelin Systems
dwirch posted on September 10, 2017 at about 6:15 in Spammers

New security implemented
dwirch posted on September 7, 2017 at about 7:16 in Site News

Malicious IP Checker Companion Tool
dwirch posted on August 12, 2017 at about 20:24 in Site News

Job Spammer: Steve Adams
dwirch posted on August 8, 2017 at about 7:44 in Spammers