' 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 Exit Function ' get rid of dashes and invalid chars For i = Len(text) To 1 Step -1 If InStr("0123456789", Mid$(text, i, 1)) = 0 Then text = Left$(text, i - 1) & Mid$(text, i + 1) End If Next ' then, re-insert them in the correct position If Len(text) <= 7 Then FormatPhoneNumber = Format$(text, "[email protected]@@[email protected]@@@") Else FormatPhoneNumber = Format$(text, "!(@@@) @@@[email protected]@@@") End IfEnd Function

4 Areas of Your Company Where Your Audio Really Matters
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a