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()