You don't need the SOAP dll to connect to web services. The code below illustrates a connection to a webservice, which uses the MS XML 3.0 library:
Sub DoIt()
Dim sURL As String
Dim sEnv As String
Dim xmlHtp As New MSXML2.XMLHTTP40
Dim xmlDoc As New DOMDocument
Dim oValueNodes As MSXML2.IXMLDOMNodeList
sURL = "http://webservices.gama-system.com/exchangerates.asmx?op=CurrentConvertToEUR"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema""
xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & " <soap:Body>"
sEnv = sEnv & " <CurrentConvertToEUR xmlns=""http://www.gama-system.com/webservices"">"
sEnv = sEnv & " <dcmValue>100</dcmValue>"
sEnv = sEnv & " <strBank>BS</strBank>"
sEnv = sEnv & " <strCurrency>USD</strCurrency>"
sEnv = sEnv & " <intRank>1</intRank>"
sEnv = sEnv & " </CurrentConvertToEUR>"
sEnv = sEnv & " </soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
With xmlHtp
.Open "post", sURL, False
.setRequestHeader "Host", "webservices.gama-system.com"
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", "http://www.gama-system.com/webservices/CurrentConvertToEUR"
.send sEnv
xmlDoc.loadXML .responseText
Set oValueNodes = xmlDoc.getElementsByTagName("CurrentConvertToEURResponse")
MsgBox oValueNodes.Item(0).nodeTypedValue
End With
'xmlDoc.Save ThisWorkbook.Path & "\WebQueryResult.xml"
End Sub