This example requires MS SOAP Toolkit 3.0
You can download it from here.
' creating th soap client object
Dim SoapClient = CreateObject("MSSOAP.SoapClient30")
SoapClient.ClientProperty("ServerHTTPRequest") = True
On Error Resume Next
' Initialize the client:
'
' Param1: URL to the wsdl of the soap service
' Param2: ServiceName
' Param3: Portname
Call SoapClient.mssoapinit("http://localhost:8090/test", "SoapServiceService", "test")
' Any errors so far?
If Err.Number <> 0 Then
MsgBox(Err.Description, MsgBoxStyle.Critical)
End If
' Executing the webservice method testDate
Dim result = SoapClient.testDate()