Dim CurrWS As New CurrencyService.ConvertMoney()
 Dim Dollars As Double
 Dim NetCred As New Net.NetworkCredential()

NetCred.UserName = "username"
NetCred.Password = "password"
CurrWS.Credentials = NetCred

 Dollars = CurrWS.PoundsToDollars(10)