VB6 and SOAP problem

Run-time error '5054'
Method 'EndMessage' of object 'ISoapConnector' failed

Private Function GetImage(ByVal Method As String, ByVal CatalogID As String, ByVal ItemNum As String, _
            ByVal TheStyle As String, ByVal ColorDes As String, ByVal TheText1 As String, ByVal TheText2 As String)

    Dim Serializer As SoapSerializer30
    Dim Reader As SoapReader30
    Dim ResultElm As IXMLDOMElement
    Dim FaultElm As IXMLDOMElement
    Dim Connector As SoapConnector30
    
    Set Connector = New HttpConnector30
    Connector.Property("EndPointURL") = END_POINT_URL
    Connector.Connect
    
    ' binding/operation/soapoperation
    Connector.Property("SoapAction") = SoapAction & Method
    Connector.BeginMessage
    
    Set Serializer = New SoapSerializer30
    Serializer.Init Connector.InputStream
    
    Serializer.StartEnvelope
    Serializer.StartBody
    Serializer.StartElement Method, CREATE_GRAPHIC
    Serializer.StartElement "strCatID"
    Serializer.WriteString CatalogID
    Serializer.EndElement
    Serializer.StartElement "strItemNo"
    Serializer.WriteString ItemNum
    Serializer.EndElement
    Serializer.StartElement "strStyle"
    Serializer.WriteString TheStyle
    Serializer.EndElement
    Serializer.StartElement "strColorDesc"
    Serializer.WriteString ColorDes
    Serializer.EndElement
    Serializer.StartElement "strText1"
    Serializer.WriteString TheText1
    Serializer.EndElement
    Serializer.StartElement "strText2"
    Serializer.WriteString TheText2
    Serializer.EndElement
    Serializer.EndElement
    Serializer.EndBody
    Serializer.EndEnvelope
    
    Connector.EndMessage    '<--- LINE THAT IT FAILS ON
        
    Set Reader = New SoapReader30
    Reader.Load Connector.OutputStream
    
    If Not Reader.Fault Is Nothing Then
        MsgBox Reader.FaultString.Text, vbExclamation
    Else
        GetImage = Reader.RpcResult.Text
    End If
End Function