Binaryworld - PhoneNumberFromString - Convert a phone string into a number ... [ VB -> String ]

' convert a telephone string into a phone number

Function PhoneNumberFromString(ByVal PhoneString As String) As String
  Dim i As Integer
  Dim acode As Integer

  Const PhoneDigits = "22233344455566677778889999"

  ' prepare result in uppercase
  PhoneNumberFromString = UCase$(PhoneString)

  For i = 1 To Len(PhoneNumberFromString)
    acode = Asc(Mid$(PhoneNumberFromString, i, 1))
    Select Case acode
      Case 48 To 57
        ' nothing to do
      Case 65 To 90
        ' replace with corresponding char in PhoneChars
        Mid$(PhoneNumberFromString, i, 1) = Mid$(PhoneDigits, _
          acode - 64, 1)
      Case Else
        ' raise an error if anything else
        Err.Raise 5, , "Invalid character"
    End Select
  Next

End Function