client.UploadString("ftp://adresse.de/" & System.Environment.MachineName & ".txt", TextBox1.Text)

sollte Funktioniern