Download Data From Website

Dim uri As New Uri(Str_DownloadUrl)
Dim ObjWebClient as new WebClient
ObjWebClient.DownloadFileAsync(uri, SavePath)
While ObjWebClient.IsBusy = True
comehere:
If ObjWebClient.IsBusy = True Then
GoTo comehere
Else
GoTo exitloop
End If
End While