Dim remoteFile As String = _
  "http://download.microsoft.com/download/7/3/6/73647B59-D6C7-4758-BEEA-C2C660" & _
  "AFE3D/Windows7UpgradeAdvisorSetup.exe"
Dim localFile As String = IO.Path.Combine(Environment.GetFolderPath( _
Environment.SpecialFolder.MyDocuments), "Windows7UpgradeAdvisorSetup.exe")
 
Using oWC As New Net.WebClient
    oWC.DownloadFile(remoteFile, localFile)
End Using