Web service consumer ошибка при отсылки больших пакетов

Const n0 = "http://addendum.lt/CRMIntegration/types"
Const n1 = "http://addendum.lt/CRMIntegration"
Class CRMIntegration_n1 As PortTypeBase
 
Sub NEW
Call Service.Initialize ("HttpAddendumLtCRMIntegrationCRMIntegrationService", _
"CRMIntegrationService.CRMIntegrationService", "http://127.0.0.1", _
"CRMIntegration_n1")
 
End Sub
 
Function deleteEmail(request As DeleteEmailRequest_n0) As DeleteEmailResponse_n0
Set deleteEmail = Service.Invoke("deleteEmail", request)
End Function
 
Function createEmail(request As CreateEmailRequest_n0) As CreateEmailResponse_n0
Set createEmail = Service.Invoke("createEmail", request)
End Function
 
Function getEmailStatus(request As GetEmailStatusRequest_n0) As GetEmailStatusResponse_n0
Set getEmailStatus = Service.Invoke("getEmailStatus", request)
End Function
 
Function getAccounts(request As GetAccountsRequest_n0) As GetAccountsResponse_n0
Set getAccounts = Service.Invoke("getAccounts", request)
End Function
 
Function getAllAccounts(request As GetAllAccountsRequest_n0) As GetAllAccountsResponse_n0
Set getAllAccounts = Service.Invoke("getAllAccounts", request)
End Function
 
End Class

Set createEmail = Service.Invoke("createEmail", request)