Dim SOAPClient As Object
 
        On Error GoTo SOAPError
        SOAPClient = CreateObject("MSSOAP.SoapClient")
 
        SOAPClient.mssoapinit( _
          "https://localhost/testordner/xml/testserver.wsdl")
        'SOAPClient.ConnectorProperty("ProxyServer") = "127.0.0.1:8088"
        SoapClient.ConnectorProperty("UseSSL") = True
        MsgBox(Str(SoapClient.addiere("2", "55")), vbOKOnly, "Ergebnis")
        Exit Sub
SOAPError:
        MsgBox(SOAPClient.faultstring + vbCrLf + SOAPClient.detail, vbOKOnly, _
          "SOAP Error")