[..]
        Dim Lesen As IO.StreamReader
        Dim Pfad As String = "..."
        Try
            'If cmbWerte.Enabled = False Then
            '    cmbWerte.Enabled = True
            'End If
            Lesen = New IO.StreamReader(Pfad & "herz.dat")
            While Lesen.Peek > -1
                cmbWerte.Items.Add(Lesen.ReadLine)
            End While
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            If Not Lesen Is Nothing Then
                Lesen.Close()
            End If
        End Try
[..]