Повтор действия при исключении

Do While 'пока в файле есть строки
 
Client.DownloadFile(path, savePath)
 
Loop

Do While 'пока в файле есть строки
            Try
                    Client.DownloadFile(path, savePath)
         
            Catch exception As Exception
                 'msgBox("Ошибка")
            End Try
Loop

dim timest =5 'пауза между попытками закачек в секундах
on error goto repeat
do while '....
repeat:
Client.DownloadFile(path, savePath)
System.Threading.Thread.Sleep(1000*timest)
Loop

dim Exept as boolean
 
do while 'пока в файле есть строки
     Exept =false ' ошибки нет
     do while exept=true 'пока будет ошибка крутим-вертим тут
          try
               Client.DownloadFile(path, savePath)
               exept=false 'сбрасываем ошибку
          catch
               exept=true 'ловим ошибку. точно так же можно ловить только ошибку, когда нет интернета. а если например файл не существует или еще что-то то не ловить
          end try
     loop
Loop

'  Sample call : DownLoadDataInBackground ("http:' www.contoso.com/GameScores.html")
        Public Shared Sub DownloadDataInBackground(ByVal address As String)
 
            Dim waiter As System.Threading.AutoResetEvent = New System.Threading.AutoResetEvent(False)
            Dim client As WebClient = New WebClient()
 
            '  Specify that the DownloadDataCallback method gets called
            '  when the download completes.
            AddHandler client.DownloadDataCompleted, AddressOf DownloadDataCallback
                        Dim uri as Uri = New Uri(address)
            client.DownloadDataAsync(uri, waiter)
 
            '  Block the main application thread. Real applications
            '  can perform other tasks while waiting for the download to complete.
            waiter.WaitOne()
        End Sub

AddHandler client.DownloadDataCompleted, AddressOf DownloadDataCallback

dim Exept as boolean
 
do while 'пока в файле есть строки
     Exept = false ' ошибки нет
     do while exept=true 'пока будет ошибка крутим-вертим тут
          try
               Client.DownloadFile(path, savePath)
               exept=false 'сбрасываем ошибку
          catch
               exept=true 'ловим ошибку. точно так же можно ловить только ошибку, когда нет интернета. а если например файл не существует или еще что-то то не ловить
          end try
     loop
Loop

Exept = false ' ошибки нет
     do while exept=true 'пока будет ошибка крутим-вертим тут