GetCompanyDetails

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub GetCompanyDetails(ByVal companynumber As String)
    'Declare the required options.
    'Invoke the web service method.
    Dim proxy As CompaniesHouseSoapClient = New CompaniesHouseSoapClient()
    Dim results As CompaniesHouseOutput = proxy.GetCompanyDetails("your-username", "your-password", companynumber, New [Option](-1) {})
    '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.Result
        '  A `CompaniesHouseResult` structure with the following fields holding the details of the requested company:
        '  
        '  * `CompanyName` - the full company name as registered on Companies House
        '  * `CompanyNumber` - the company registration number
        '  * `HasInconsistencies` - populated where the company record has been marked up as having inconsistencies.
        '  * `RegAddress_CareOfName` - where the registered office address is indicated as 'Care of' this will be output along with any data held in 'Supplied Company Name' (max 100 characters); Where there is no 'Care of' or 'Supplied company Name' data present 'c/o' will be suppressed and return blank.
        '  * `RegAddress_POBox` - where the registered office address is indicated that PO Box data is present this will be output (max 10 characters)
        '  * `RegAddress_AddressLine1` to `RegAddress_AddressLine6` - contains the registered address for the company
        '  * `CompanyCategory` - the category of the company (Public Limited Company, Private Limited Company etc.)
        '  * `CompanyStatus` - the status of the company (Active, Dissolved etc.)
        '  * `CountryOfOrigin` - the country of origin
        '  * `RegistrationDate `- only supplied for companies which are NOT 0, SC, SE and ES prefixes
        '  * `DissolutionDate` - only supplied for dissolved companies which are incorporated in England, Wales or Scotland
        '  * `IncorporationDate` - only supplied for companies which are incorporated in England, Wales or Scotland
        '  * `ClosureDate` - only supplied for companies which are NOT incorporated in England, Wales or Scotland
        '  * `Accounts_AccountRefDate` - the date of the last submitted accounts
        '  * `Accounts_NextDueDate` - the date of the next due accounts
        '  * `Accounts_Overdue` - a flag to indicate whether the next accounts are overdue
        '  * `Accounts_LastMadeUpDate` - the Last Made Up date for the accounts
        '  * `Accounts_AccountCategory` - the type of accounts filed
        '  * `Accounts_DocumentsAvail` - details whether accounts are available
        '  * `Returns_NextDueDate` - the date of the next due returns
        '  * `Returns_LastMadeUpDate` - the Last Made Up date for the returns
        '  * `Returns_DocumentsAvail` - details whether accounts are available
        '  * `Mortgages_MortgageInd` - 3 possible values of 'No', 'LT300' (less than 300) and 'GE300' (greater than or equal to 300)
        '  * `Mortgages_NumMortgageCharges` - total number of charges registered against the company
        '  * `Mortgages_NumMortgageOutstanding` - total number of outstanding charges registered against the company
        '  * `Mortgages_NumPartSatisfied` - total number of part-satisfied charges registered against the company
        '  * `Mortgages_NumSatisfied` - total number of satisfied charges registered against the company
        '  * `SICCode1` to `SICCode4` - details any SIC codes registered against the company
        '  * `LastFullMembersDate` - the last full members date
        '  * `LastBulkShareDate` - the last bulk share date
        '  * `WeededDate` - only supplied where applicable. Indicates the date on which the Microfiche has been weeded
        '  * `HasUKEstablishment` - 0 = No, 1 = Yes - indicates that an overseas company has registered a UK establishment name and address with Companies House (previously referred to as "Branch")
        '  * `HasAppointments` - 0 = No, 1 = Yes - indicates that a company has company appointment details registered at Companies House
        '  * `InLiquidation` - 0 = No, 1 = Yes - indicates that at some point during the company's life insolvency proceedings have taken place
        '  * `LimitedPartnerships_NumberGenPartners` - only supplied where applicable (for LP and SL companies)
        '  * `LimitedPartnerships_NumberLimPartners` - only supplied where applicable (for LP and SL companies)
    End If
End Sub

Public Sub GetCompanyDetails(companynumber As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=CompaniesHouse&method=GetCompanyDetailsSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&companynumber=" & companynumber
  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:
      'Result
      '  A `CompaniesHouseResult` structure with the following fields holding the details of the requested company:
      '  
      '  * `CompanyName` - the full company name as registered on Companies House
      '  * `CompanyNumber` - the company registration number
      '  * `HasInconsistencies` - populated where the company record has been marked up as having inconsistencies.
      '  * `RegAddress_CareOfName` - where the registered office address is indicated as 'Care of' this will be output along with any data held in 'Supplied Company Name' (max 100 characters); Where there is no 'Care of' or 'Supplied company Name' data present 'c/o' will be suppressed and return blank.
      '  * `RegAddress_POBox` - where the registered office address is indicated that PO Box data is present this will be output (max 10 characters)
      '  * `RegAddress_AddressLine1` to `RegAddress_AddressLine6` - contains the registered address for the company
      '  * `CompanyCategory` - the category of the company (Public Limited Company, Private Limited Company etc.)
      '  * `CompanyStatus` - the status of the company (Active, Dissolved etc.)
      '  * `CountryOfOrigin` - the country of origin
      '  * `RegistrationDate `- only supplied for companies which are NOT 0, SC, SE and ES prefixes
      '  * `DissolutionDate` - only supplied for dissolved companies which are incorporated in England, Wales or Scotland
      '  * `IncorporationDate` - only supplied for companies which are incorporated in England, Wales or Scotland
      '  * `ClosureDate` - only supplied for companies which are NOT incorporated in England, Wales or Scotland
      '  * `Accounts_AccountRefDate` - the date of the last submitted accounts
      '  * `Accounts_NextDueDate` - the date of the next due accounts
      '  * `Accounts_Overdue` - a flag to indicate whether the next accounts are overdue
      '  * `Accounts_LastMadeUpDate` - the Last Made Up date for the accounts
      '  * `Accounts_AccountCategory` - the type of accounts filed
      '  * `Accounts_DocumentsAvail` - details whether accounts are available
      '  * `Returns_NextDueDate` - the date of the next due returns
      '  * `Returns_LastMadeUpDate` - the Last Made Up date for the returns
      '  * `Returns_DocumentsAvail` - details whether accounts are available
      '  * `Mortgages_MortgageInd` - 3 possible values of 'No', 'LT300' (less than 300) and 'GE300' (greater than or equal to 300)
      '  * `Mortgages_NumMortgageCharges` - total number of charges registered against the company
      '  * `Mortgages_NumMortgageOutstanding` - total number of outstanding charges registered against the company
      '  * `Mortgages_NumPartSatisfied` - total number of part-satisfied charges registered against the company
      '  * `Mortgages_NumSatisfied` - total number of satisfied charges registered against the company
      '  * `SICCode1` to `SICCode4` - details any SIC codes registered against the company
      '  * `LastFullMembersDate` - the last full members date
      '  * `LastBulkShareDate` - the last bulk share date
      '  * `WeededDate` - only supplied where applicable. Indicates the date on which the Microfiche has been weeded
      '  * `HasUKEstablishment` - 0 = No, 1 = Yes - indicates that an overseas company has registered a UK establishment name and address with Companies House (previously referred to as "Branch")
      '  * `HasAppointments` - 0 = No, 1 = Yes - indicates that a company has company appointment details registered at Companies House
      '  * `InLiquidation` - 0 = No, 1 = Yes - indicates that at some point during the company's life insolvency proceedings have taken place
      '  * `LimitedPartnerships_NumberGenPartners` - only supplied where applicable (for LP and SL companies)
      '  * `LimitedPartnerships_NumberLimPartners` - only supplied where applicable (for LP and SL companies)
    End If
  End If
End Sub