July 28, 2001

PhoneNumberFromString – Convert a phone string into a number

July 28, 2001

‘ 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

InStrAfter – An InStr variant that returns the index after the matching string

July 28, 2001

‘ search for a string starting at a given index’ and return the index of the character that follows’ the searched string (case insensitive search)Function InstrAfter(Source As String, Search As