Dim Von As Integer = 0
        Dim Bis As Integer = 20
        Dim Gelesen(Bis - Von) As String
 
 
        Dim DateiPfad As String = "C:\Dokumente und" & _
          "Einstellungen\gangsta\Desktop\test.txt"
        Dim Reader As New StreamReader(DateiPfad)
        Dim Durchläufe As Integer = Bis - Von
 
 
        If Von > 0 Then
            For i As Integer = 0 To Von
                Reader.ReadLine()
            Next
        End If
 
        For i As Integer = 0 To Durchläufe
            Gelesen(i) = Reader.ReadLine()
        Next
 
        Dim daten As String = Gelesen(14 + ComboBox1.SelectedIndex)
        Dim split As String() = daten.Split(New [Char]() {" "c})
 
 
 
        If ComboBox1.SelectedIndex < 0 Then
            'nichts
        Else
            TextBox1.Text = Gelesen(14 + ComboBox1.SelectedIndex)
        End If

-----------------------
Gru? BigBobbie
-----------------------