October 14, 2000

‘ Format a credit card numberFunction FormatCreditCard(ByVal text As String) As String Dim i As Long ‘ ignore empty strings If Len(text) = 0 Then Exit Function ‘ get rid

‘ change a sentence in CamelCase to a sentence with spaces’ for example ConvertCamelCase(“FileExchange”) => “File Exchange”Public Function ConvertCamelCase(ByVal Value As String) As String Dim i As Long For i

‘ Takes a first and last name and converts it to the format LastName, FirstNameFunction FormatFullName(ByVal FirstName As String, ByVal LastName As String) As _ String FirstName = Trim$(FirstName) LastName

‘ reverse a full name” for example: ReverseFullName(“John A. Smith”) ==> “Smith, John A.”Function ReverseFullName(ByVal FullName As String) As String Dim i As Long ‘ search for the last space

‘ Modify a phone-number to the format “XXX-XXXX” or “(XXX) XXX-XXXX”.Function FormatPhoneNumber(ByVal text As String) As String Dim i As Long ‘ ignore empty strings If Len(text) = 0 Then

‘ convert a string to camel case’ for example: CamelCase(“new file name”) => “NewFileName”‘Function CamelCase(ByVal Text As String) As String Dim i As Long ‘ convert all non-alphanumeric chars to

‘ convert a reversed full name back to the “FirstName LastName” format” for example, ConvertReverseFullName(“Smith, John A.”) ==> “John A. Smith”Function ConvertReverseFullName(ByVal ReverseFullName As String) As String Dim i As