'# -1- #####################################################
'         alle Abschnitte (Sektionen) ermitteln
'         alle Werte die sich in  "[" -befinden- "]"
'##########################################################
Public Sub Init_Sections(ByVal INIFile As String)
  Dim strSections As String
  Dim Section() As String
  Dim i As Integer
' vbNullString übergeben, um alle gespeicherten Abschnittsnamen zu ermitteln
  strSections = GetIniString(vbNullString, "", "", INIFile, 32767)
' Sind überhaupt Abschnitte vorhanden?
' strSections = Left$(strSections, lResult)
  If strSections <> "" Then
    ' Rückgabestring "splitten"
    Section = Split(strSections, Chr$(0))
    ' Alle Abschnitte 
          For i = 0 To UBound(Section) - 1
           Debug.Print "[" & Section(i) & "]"
          Next i
    Else 'nein keine vorhanden - ggf: Hinweis ausgeben!
  End If
End Sub

'# -2- #####################################################
'  alle Schlüsselwörter INNERHALB einer sektionen) ermitteln
'  alle Werte die sich unterhalb  "[" -befinden- "]"
'##########################################################
Public Function Init_Keys(ByVal strSection As String, ByVal INIFile As String) _
  As Boolean
  Dim strKeys As String
  Dim Key() As String
  Dim i As Integer
 If pF_AktivUser = "" Then pF_AktivUser = Environ("Username")
  ' vbNullString übergeben, um alle gespeicherten
  ' Keys zu ermitteln
  strKeys = GetIniString(strSection, vbNullString, "", INIFile, 32767)
  ' Sind überhaupt Einträge vorhanden?
  If strKeys <> "" Then
    ' Rückgabestring "splitten"
    Key = Split(strKeys, Chr$(0))
    ' Alle Einträge der ListBox hinzufügen
      For i = 0 To UBound(Key) - 1
        Debug.Print "Schlüssel " & Key(i)
        Debug.Print "Wert      " & GetIniString(strSection, Key(i), "", INIFile)
 
'          If UCase(pF_AktivUser) = UCase(Key(i)) = True Then
'            Init_Keys = True
'            Exit Function
'          Else
'           Stop
'          End If
      Next i
  End If
End Function