' Ein FTPWebRequest-Objekt instanzieren und konfigurieren...
            Dim fwr As FtpWebRequest = FtpWebRequest.Create(strSourceFilePath)
            fwr.Credentials = New NetworkCredential(strFTPAccount(0), _
              strFTPAccount(1), strFTPAccount(2))
            fwr.Proxy = Nothing
            fwr.Timeout = 30 * 1000 ' Timeout für das WebRequest-Objekt nach 30 
            ' Sekunden
            fwr.Method = WebRequestMethods.Ftp.DownloadFile
 
            ' Stream vom FTP-Server abrufen ...
            Dim wrp As WebResponse = fwr.GetResponse()
            Dim stmPDFBytes As Stream = wrp.GetResponseStream()
 
            ' Zum Auslesen des Streams die Größe der Byte-Blöcke festlegen...
            Dim intByteBlock As Integer = 1024 ' je 1 KB
 
            ' FileStream für die Ziel-Datei erzeugen...
            Dim fs As New FileStream(strDestinationFilePath, FileMode.Create)