FormatTelephoneNumber

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub FormatTelephoneNumber(ByVal number As String)
    'Declare the required options.
    Dim DefaultCountryCode As [Option] = New [Option]()
    DefaultCountryCode.Name = "DefaultCountryCode"
    DefaultCountryCode.Value = "44"
    Dim DefaultFormatType As [Option] = New [Option]()
    DefaultFormatType.Name = "DefaultFormatType"
    DefaultFormatType.Value = "International"
    Dim DifferentFormatCountries As [Option] = New [Option]()
    DifferentFormatCountries.Name = "DifferentFormatCountries"
    DifferentFormatCountries.Value = "44"
    Dim DifferentFormatType As [Option] = New [Option]()
    DifferentFormatType.Name = "DifferentFormatType"
    DifferentFormatType.Value = "National"
    Dim UseLocalFormatting As [Option] = New [Option]()
    UseLocalFormatting.Name = "UseLocalFormatting"
    UseLocalFormatting.Value = "true"
    'Invoke the web service method.
    Dim proxy As TelephoneFormattingSoapClient = New TelephoneFormattingSoapClient()
    Dim results As TelephoneFormattingOutput = proxy.FormatTelephoneNumber("your-username", "your-password", number, New [Option]() {DefaultCountryCode, DefaultFormatType, DifferentFormatCountries, DifferentFormatType, UseLocalFormatting})
    'Check that the call succeeded, and show the error message if there was a problem.
    If (results.Status.Success = false) Then
        MessageBox.Show(("Error: " + results.Status.ErrorMessage))
    Else
        'TODO: Process method results here.
        'Results can be extracted from the following fields:
        'result.FormattedNumber
        '  Contains the formatted version of the supplied number
    End If
End Sub

Public Sub FormatTelephoneNumber(number As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=TelephoneFormatting&method=FormatTelephoneNumberSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&number=" & number
  If rs.MoveFirst Then
    If rs.Fields(0).Name = "Success" And rs.Fields(0).Value = false Then
      MsgBox "Error: " & rs.Fields(1)
    Else
      'TODO: Process method results here.
      'All the results are available in the first row in the recordset.
      'Results can be extracted from the following fields:
      'FormattedNumber
      '  Contains the formatted version of the supplied number
    End If
  End If
End Sub