Dim customerRet As ICustomerRet = customerRetList.GetAt(i)
                CustomerName = customerRet.Name.GetValue()
                QuickBooksID = customerRet.ListID.GetValue()
                requestMsgSet = sessionManager.CreateMsgSetRequest("US", 13, 0)
                requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue
                Dim invoiceAddRq As IInvoiceAdd = requestMsgSet.AppendInvoiceAddRq()
                invoiceAddRq.CustomerRef.ListID.SetValue(customerRet.ListID.GetValue())
               invoiceAddRq.CustomerRef.FullName.SetValue(customerRet.FullName.GetValue())
                invoiceAddRq.RefNumber.SetValue(15)
                ' Add these lines to your request
                Dim invoiceLineAdd As IORInvoiceLineAdd = invoiceAddRq.ORInvoiceLineAddList.Append()

                invoiceLineAdd.InvoiceLineAdd.ItemRef.FullName.SetValue("Sales")
                ' invoiceLineAdd.InvoiceLineAdd.Amount.SetValue(1000)
                invoiceLineAdd.InvoiceLineAdd.Desc.SetValue("Test")
                invoiceLineAdd.InvoiceLineAdd.Quantity.SetValue(Convert.ToDouble(1))
                invoiceLineAdd.InvoiceLineAdd.ORRatePriceLevel.Rate.SetValue(Convert.ToDouble(10))
              invoiceLineAdd.InvoiceLineAdd.Amount.SetValue(Convert.ToDouble(1005))
                invoiceLineAdd.InvoiceLineAdd.ServiceDate.SetValue(DateTime.Now)
                Dim invoiceResponseMsgSet As IMsgSetResponse = sessionManager.DoRequests(requestMsgSet)
                Dim invoiceResponse As IResponse = invoiceResponseMsgSet.ResponseList.GetAt(0)
                Dim invoiceRet As IInvoiceRet = DirectCast(invoiceResponse.Detail, IInvoiceRet)

                Dim StatusMessage As String = response.StatusMessage
                Dim statusCode As Integer = response.StatusCode