Dim soapclient, result
Set soapclient = CreateObject("MSSOAP.SoapClient30")
soapclient.mssoapinit "MyTestWebService.wsdl"
result = soapclient.Add( 1 , 2 )
MsgBox result