Try
            'Datei löschen, wenn bereits lokal vorhanden
            If File.Exists(strZielLaufwerk & strZielPfad & strZielDateiname) _
              Then
                File.Delete(strZielLaufwerk & strZielPfad & strZielDateiname)
            End If
            'Neue Datei herunterladen
            My.Computer.Network.DownloadFile(strURL, strZielLaufwerk & _
              strZielPfad & strZielDateiname, strBK, strPW)
        Catch ex As Exception
            If TestModus = 1 Then
                MessageBox.Show("ZFHS-0001: " & vbCrLf & ex.Message)
            End If
            intFehlernummer = 1
            Mail_Versenden("Control-Fehler", "Fehler beim Herunterladen des" & _
              "Control-Files." & vbCrLf & vbCrLf & ex.Message)
            Close()
        End Try