Dim Sektions As New Dictionary(Of String, Dictionary(Of String, String))

Public Function ReadIni(ByVal Filename As String) As Boolean
 
   Try
       Sektions.Clear()
 
       Dim enc As New System.Text.UTF8Encoding 'Codierung der INI??
       'Zeilenweise Lesen
       Dim lines() As String = IO.File.ReadAllLines(Filename, enc)
       Dim c As Integer = -1
       Dim c1 As Integer, sec, p() As String
 
       Do
          c += 1
          'Sektion ermitteln 
          If lines(c) <> String.Empty AndAlso lines(c)(0) = "[" Then
             sec = lines(c).Trim("["c, "]"c, " "c)
             Dim sk As New Dictionary(Of String, String)
             c1 = c
             Do
                c1 = c1 + 1
                'Zeile mit Schlüssel/Wert aufspalten und eintragen
                p = lines(c1).Split("="c)
                If p.Length = 2 Then
                   sk.Add(p(0).Trim.ToUpper, p(1).Trim)
                End If
             Loop While c1 < lines.Length - 1 AndAlso lines(c1)(0) <> "["
             'Schlüssel-Dictionary in Sektions verzeichnen 
             Sektions.Add(sec.Trim.ToUpper, sk)
             c = c1 - 1
          End If
       Loop While c < lines.Length - 1
       Return True
    Catch ex As Exception
       Return False
    End Try
 End Function