' convert a telephone string into a phone numberFunction 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


Westinghouse Builds Polish Power Plant
Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at