User = "username1"
    Password = "password1"
    Domain = "domain1"

    URL = "http://sao-ldms/MBSDKService/MsgSDK.asmx?WSDL"
    Dim MyCredentails As New System.Net.CredentialCache()
    Dim NetCred As New System.Net.NetworkCredential(User, Password, Domain)
    MyCredentails.Add(New Uri(URL), "Basic", NetCred)