Dim client As Net.WebClient
        client.Credentials = New Net.NetworkCredential("test", "passwort")
        Dim bisher_txt As String = client.DownloadString( _
          "ftp://ftp.lima-city.de/test.txt")
        client.UploadString("ftp://ftp.lima-city.de/test.txt", bisher_txt + _
        "test")