Option Explicit
 
Dim sZeile As String
 
Private Sub Form_Load()
   Command1.TabIndex = 0
   Command1.Caption = "Input"
   Command2.Caption = "Output"
End Sub
 
Private Sub Command1_Click()
Open App.Path & "\Daten.txt" For Input As #1
Line Input #1, sZeile
   txt1.Text = sZeile
Line Input #1, sZeile
   txt2.Text = sZeile
Line Input #1, sZeile
   txt3.Text = sZeile
Line Input #1, sZeile
  txt4.Text = sZeile
Line Input #1, sZeile
   txt5.Text = sZeile
Line Input #1, sZeile
   txt6.Text = sZeile
Line Input #1, sZeile
   txt7.Text = sZeile
Line Input #1, sZeile
   txt8.Text = sZeile
Line Input #1, sZeile
   txt9.Text = sZeile
 
Line Input #1, sZeile '??????????????????????????????????????????????????
   txt10.Text = sZeile
 
Close #1
End Sub
 
Private Sub Command2_Click()
Open App.Path & "\Daten.txt" For Output As #1
   Print #1, txt1.Text
   Print #1, txt2.Text
   Print #1, txt3.Text
   Print #1, txt4.Text
   Print #1, txt5.Text
   Print #1, txt6.Text
   Print #1, txt7.Text
   Print #1, txt8.Text
   Print #1, txt9.Text
   Print #1, txt10.Text 'Textbox auf MultiLine und Scrollbars = 3 beides
Close #1
End Sub