' Benötigte API-Deklaration
Private Declare Function GetPrivateProfileString Lib _
  "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, _
  ByVal lpFileName As String) As Long

' Eintrag aus INI-Datei lesen
Public Function GetIniString(ByVal Sektion As String, _
  ByVal Titel As String, ByVal Vorgabe As String, _
  ByVal INIFile As String, _
  Optional ByVal nSize As Integer = 256) As String
 
  Dim lResult As Long
  Dim sValue As String
 
  sValue = Space$(nSize)
  lResult = GetPrivateProfileString(Sektion, Titel, _
    Vorgabe, sValue, nSize, INIFile)
  GetIniString = Left$(sValue, lResult)
End Function

Dim sTemp As String
Dim nResult As Long
 
sTemp = Space$(32767)
sTemp = GetIniString("Ora0", vbNullString, "", "Datei.ini", 32767)
 
If sTemp <> "" Then
  ' Keys
  Dim sKeys() As String  
  sKeys = Split(sTemp, Chr$(0))
 
  ' Anzahl Einträge im Abschnitt
  Dim nCount As Integer
  Dim i  As Integer
 
  nCount = UBound(sKeys) - 1
 
  ' und ab in ein 2-diemsnionales Array
  ReDim myArray(nCount, 1)
  For i = 0 To nCount
    myArray(i, 0) = sKeys(i)
    myArray(i, 1) = GetIniString("Ora0", sKeys(i), "", "datei.ini")
  Next i
End If

myArray(0, 0) = "Path": myArray(0, 1) = "test"
myArray(1, 0) = "Server": myArray(0, 2) = "test"
usw.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de