' zunächst alle Abschnittsnamen ermitteln
Dim sTemp As String
sTemp = Space$(32767)
sTemp = GetIniString(vbNullString, "", "", "DeineINIDatei.ini", 32767")
 
' Irgendetwas gefunden?
If sTemp <> "" Then
  ' Ok - Es gibt ein oder mehrere Abschnitte
  ' Jetzt den Gesamtstring in ein Array splitten
  Dim sSections() As String
  sSections = Split(sTemp, Chr$(0))
 
  ' Array durchlaufen und nur "Ora"-Abschnitte zählen
  Dim nCount As Integer
  Dim i As Integer
 
  For i = 0 To UBound(sSections) - 1
    If Left$(sSections(i), 3) = "Ora" Then
      nCount = nCount + 1
    End If
  Next i
 
  MsgBox CStr(nCount) & " Ora... Abschnitte vorhanden!" 
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de