Private Declare Function WritePrivateProfileString Lib _
  "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
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

Private Sub Command1_Click()
' Einzelnen Eintrag im Abschnitt "Start" lesen
Dim myIniFile As String
Dim sValue As String
Dim lResult As Long
 
myIniFile = App.Path & "\FindTheRune.ini"
 
Dim i
For i = 1 To 24
 
' Rückgabewert mit ausreichend Leerzeichen füllen
sValue = Space$(255)
lResult = GetPrivateProfileString("runes1", i, _
 vbNullString, sValue, Len(sValue), myIniFile)
 
' tatsächliche Länge des Rückgabewertes
sValue = Left$(sValue, lResult)
lbl(i).Caption = sValue
Next i
 
End Sub