Sub auto_lesen_form2_serie1()
Öffnen_Dialog
With Dateneingabe
 
 Datenanzeige.Text1.Text = .CommonDialog1.FileName
strDatei = .CommonDialog1.FileName
 
   Dim i As Long
Dim Zeilen() As String 'speichert die x zuletzt eingelesenen Zeilen
Const X = 16 'x.-te Zeile von unten wird gesucht
ReDim Zeilen(1 To X)
Close #1
Open .CommonDialog1.FileName For Input As #1
i = 0
Do While Not EOF(1)
  For i = 2 To X
    Zeilen(i - 1) = Zeilen(i)
  Next i
  Line Input #1, Zeilen(X)
  'RichTextBox2.Text = Zeilen(X) & " "
Loop
 
   Datenanzeige.RichTextBox2.Text = Zeilen(1) & Chr(13) & Zeilen(2) & Chr(13) & _
     Zeilen(3) & Chr(13) & _
                        Zeilen(4) & Chr(13) & Zeilen(5) & Chr(13) & Zeilen(6) & _
                        Chr(13) & _
                        Zeilen(7) & Chr(13) & Zeilen(8) & Chr(13) & Zeilen(9) & _
                        Chr(13) & _
                        Zeilen(10) & Chr(13) & Zeilen(11) & Chr(13) & Zeilen( _
                        12) & Chr(13) & _
                        Zeilen(13) & Chr(13) & Zeilen(14) & Chr(13) & Zeilen( _
                        15) & Chr(13) & _
                        Zeilen(16)
Close #1
'der ganze code ist zu lang

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht