Convert string to UK phone number format

Category:

String Manipulation

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

Takes a string containing a numeric phone number and returns the same string converted into UK phone number format e.g. converts 02078881234 to (020) 7888 1234 or 01322888123 to (01322) 888 1234

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Function ConvertPhoneNumber(sNumber As String) As String
    
    '******************************************************************************
    'Purpose:   Converts string of numbers to correct uk telephone format
    'Inputs:    sNumber: String value containing telephone number to be converted
    'Returns:   String containing converted phone number
    'Author:	Lee Dale
    'Email:	enquiries@appdalesolutions.co.uk
    '******************************************************************************
    
    Dim sNumberCount As String, sActualNumber As String
    Dim iCountLoop As Integer, iCount As Integer
    
    On Error GoTo err_ConvertNumber
    iCountLoop = 1
    Do Until iCountLoop = Len(sNumber) + 1
        If IsNumeric(Mid$(sNumber, iCountLoop, 1)) Then
            sNumberCount = sNumberCount & Mid$(sNumber, iCountLoop, 1)
        End If
        iCountLoop = iCountLoop + 1
    Loop
    
    If Left$(sNumberCount, 2) <> "00" Then
        If Len(sNumberCount) <> 11 Then
            ConvertPhoneNumber = sNumberCount
        Else
            If Left$(sNumber, 3) = "020" Then
                ConvertPhoneNumber = "(" & Left$(sNumberCount, 3) & ") " & Mid$(sNumberCount, 4, 4) & " " & Right$(sNumberCount, 4)
            ElseIf Left$(sNumberCount, 2) = "01" & Mid$(sNumberCount, 3, 1) = "1" Then
                ConvertPhoneNumber = "(" & Left$(sNumberCount, 4) & ") " & Mid$(sNumberCount, 5, 3) & " " & Right$(sNumberCount, 4)
            Else
                ConvertPhoneNumber = "(" & Left$(sNumberCount, 5) & ") " & Right$(sNumberCount, 6)
            End If
            ConvertPhoneNumber = ConvertPhoneNumber
        End If
    Else
        ConvertPhoneNumber = sNumberCount
    End If
    Exit Sub

err_ConvertNumber:
    Call ErrorHandler
End Function