Dim wc As WebClient = New WebClient()
        wc.UseDefaultCredentials = False
        Dim url As String = "https://my.sharepoint.com/myExcel.xlsm"
        Dim creds As CredentialCache = New CredentialCache()
        creds.Add(New Uri(url), "Basic", New NetworkCredential("myUser", _
          "myPassword", "myDomain"))
 
        wc.Credentials = creds
        wc.Headers.Add(HttpRequestHeader.UserAgent, "Mozilla/4.0 (compatible;" & _
          "MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;")
        wc.Headers.Add(HttpRequestHeader.Accept, "application/x-ms-application," & _
        "image/jpeg, application/xlsm, image/gif, image/pjpeg," & _
        "application/x-ms-xbap, application/x-shockwave-flash," & _
        "application/vnd.ms-excel, application/vnd.ms-powerpoint," & _
        "application/msword, */*")
 
 
        wc.DownloadFile(url, "c:\myExcel.xlsm")