Public Function IniRead( _
    ByRef Section As String, _
    ByRef Key As String, _
    Optional ByRef Default As String, _
    Optional ByRef IniFile As String _
  ) As String
 
  Dim s As String * 256
  Dim n As Long
 
  If Len(IniFile) Then
    n = GetPrivateProfileStringA(Section, Key, Default, s, 255, IniFile)
  Else
    n = GetPrivateProfileStringA(Section, Key, Default, s, 255, IniPath)
  End If
  IniRead = Left$(s, n)
 
End Function

Public Function IniPath() As String
 
  Static AppIniFile As String
 
  If Len(AppIniFile) = 0 Then
 
    If Right$(App.Path, 1) = "\" Then
      AppIniFile = App.Path & App.EXEName & ".ini"
    Else
      AppIniFile = App.Path & "\" & App.EXEName & ".ini"
    End If
 
  End If
  IniPath = AppIniFile
 
End Function

Public Sub IniWrite( _
    ByRef Section As String, _
    ByRef Key As String, _
    ByRef Value As String, _
    Optional ByRef IniFile As String)
 
  Dim n As Long
 
  If Len(IniFile) Then
    n = WritePrivateProfileStringA(Section, Key, Value, IniFile)
  Else
    n = WritePrivateProfileStringA(Section, Key, Value, IniPath)
  End If
  If n = 0 Then Err.Raise 5 'Invalid procedure call or argument
 
End Sub

For n= 0 to n
s2 = IniRead("CDDaten", "CD" & n , IniFile:=IniPath)
Lisbox.Additem s2
.....
Next n