Private Sub Command1_Click()
Nr = FreeFile
Dateiname = "Text.txt"
Open Dateiname For Input As #Nr
Input #Nr, Text$
Close #Nr
Text1 = Text$
End Sub