1：安装Soap Toolkit 可以网上下载

2：新建VB工程,添加对soap toolkit的引用(Microsoft Soap Type Library 3.0)

3：

Private Sub Command1_Click()

Dim client As New MSSOAPLib30.SoapClient30

Call client .MSSoapInit （"http://localhost:1234/DemoWebService/Service.asmx?WSDL"）

msgBox client.HelloWorld()

Set client = Nothing

End Sub