Create Business Partner Using DI API

I have the following to create Business partner using DI API.But I don't know how to add the Business partner->Accounting>AccountPayable  code using DI API. I Need to Update the tax details also.please Help. Dim RetCode As Integer Dim Newcode As String         Dim vBP As SAPbobsCOM.BusinessPartners       Set vBP = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)  'Calls BusinessPartners object         'Set values of the BusinessPartners object's mandatory and optional properties         For counter = 1 To 225             With vBP                 .Series = 63 'Mandatory property in the BusinessPartners object                 .CardName = Worksheets("Sheet1").Cells(counter, 1)                 .CardType = SAPbobsCOM.BoCardTypes.cCustomer                 .PriceListNum = 3                 .GroupCode = 165                 .DownPaymentClearAct = "_SYS00000000527"             RetCode = .Add             Newcode = oCompany.GetNewObjectKey