Imports System.IO
 
Public Class cboFillFromTXTFile
    Public Structure IndexListe
        Dim index As Integer
        Dim wert As String
    End Structure
 
    Private _oStream As StreamReader
    Private _retList As List(Of IndexListe)
 
    Public ReadOnly Property GetList(ByVal FilePath As String) As List(Of _
      IndexListe)
        Get
            Dim rl As String, val() As String, MyItem As IndexListe
            If File.Exists(FilePath) Then
                Return Nothing
            End If
 
            _oStream = File.OpenText(FilePath)
 
            Do While Not _oStream.EndOfStream
                rl = _oStream.ReadLine
                val = Split(rl, ";")
                MyItem.index = val(0) : MyItem.wert = val(1)
 
                _retList.Add(MyItem)
            Loop
 
            _oStream.Close()
            _oStream.Dispose()
 
            Return _retList
        End Get
    End Property
 
End Class

...
        Dim obj As cboFillFromTXTFile = New cboFillFromTXTFile
        Dim DateiName As String = Application.ExecutablePath.Substring(0, _
          Application.ExecutablePath.LastIndexOf("\") + 1) & _
            "txtFiles\IndexFahrgruende.txt"
        Dim FahrGrundListe As New List(Of cboFillFromTXTFile.IndexListe)
 
        FahrGrundListe = obj.GetList(DateiName)
 
        For Each element As cboFillFromTXTFile.IndexListe In FahrGrundListe
            MsgBox(element.index & " - " & element.wert)
        Next
...

Gruesse
Robert