Attribute VB_Name = "INI_DATEI_SCHREIBEN"
'von Michael Schwimmer

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
        ' Funktion, um Einträge aus .ini Datei lesen

Private Declare Function WritePrivateProfileString& Lib _
        "kernel32" Alias "WritePrivateProfileStringA" _
        (ByVal AppName$, ByVal KeyName$, ByVal _
        keydefault$, ByVal FileName$)
        ' Funktion, um Einträge in .ini Datei schreiben

Private Const Einstellungen = "c:\EinstellungenXLS.ini"
' Name der .ini Datei (wenn sie nicht existiert, wird sie angelegt)

Sub EinstellungenSpeichern()
WritePrivateProfileString "Montag", "ErsterWert", _
        111, Einstellungen
WritePrivateProfileString "Montag", "ZweiterWert", _
        112, Einstellungen
WritePrivateProfileString "Dienstag", "ErsterWert", _
        222, Einstellungen
End Sub

Sub EinstellungenLaden()
Dim dummy As String
dummy = String(1000, 0)
GetPrivateProfileString "Montag", "ZweiterWert", _
    "Schon gelöscht", dummy, 999, Einstellungen
MsgBox Left$(dummy, InStr(1, dummy, Chr(0)) - 1)
End Sub

Sub EintragEntfernen()
WritePrivateProfileString "Montag", "ZweiterWert", _
    vbNullString, Einstellungen
End Sub

Sub SektionEntfernen()
WritePrivateProfileString "Dienstag", vbNullString, _
    vbNullString, Einstellungen
End Sub