Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Function cleanPhoneNumber(thisNumber As String) As String ' this function aspires to clean any phone number format ' to standard format (+9999) 999-999-9999 or 999-999-9999 ' works with almost all phone number formats stored in text Dim retNumber As String For i = 1 To Len(thisNumber) If Asc(Mid(thisNumber, i, 1)) >= Asc("0") And Asc(Mid(thisNumber, i, 1)) <= Asc("9") Then retNumber = retNumber + Mid(thisNumber, i, 1) End If Next If Len(retNumber) > 10 Then ' format for country code as well cleanPhoneNumber = Format(retNumber, "(+#) (000) 000-0000") Else cleanPhoneNumber = Format(retNumber, "(+1) (000) 000-0000") End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.