Sub rahaarvutus()
  Dim klient As New MSSOAPLib.SoapClient
  klient.mssoapinit "http://webcontinuum.net/webservices/ccydemo.wsdl"
  MsgBox klient.calcExcRate("gbp", "usd", 50)
End Sub
'Reference: Microsoft Soap Type Library