Imports System.Windows.Forms
Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt" '|All files ( 
        ' *.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = openFileDialog1.FileName
            Dim i As Long
            Dim Zeilen() As String 'speichert die x zuletzt eingelesenen Zeilen
            Const X = 3 'x.-te Zeile von unten wird gesucht
            Dim DateiNr As Integer
            DateiNr = FreeFile()
            FileOpen(DateiNr, openFileDialog1.FileName, OpenMode.Input)
            ReDim Zeilen(0 To X)
            i = 0
            Do While Not EOF(DateiNr)
                For i = 2 To X
                    Zeilen(i - 1) = Zeilen(i)
                Next i
                LineInput(DateiNr)
            Loop
            TextBox2.Text = Zeilen(1)
            FileClose(DateiNr)
        End If
 
    End Sub
 
 
End Class

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