Option Explicit
 
Public Inidatei       As String  
Public Sektion        As String
Public Key            As String
Public IniWert        As String
 
'----- Ini lesen -------------------------------------------------------------
Public 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
 
'----- Ini schreiben ---------------------------------------------------------
Public 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
'
'-----------------------------------------------------------------------------
 
' Eintrag aus INI-Datei lesen
Public Function GetIniString(ByVal Sektion As String, _
                             ByVal Key As String, _
                             ByVal Wert As String, _
                             ByVal Inidatei As String, _
                             Optional ByVal nSize As Long = 256) As String
  Dim lResult As Long
  Dim sValue  As String
  Dim lfd     As Integer
 
  Wert = ""
 
  sValue = Space$(nSize)
  lResult = GetPrivateProfileString(Sektion, Key, Wert, sValue, nSize, Inidatei)
 
  GetIniString = Left$(sValue, lResult)
 
End Function
 
' Schlüssel bzw. Key anlegen oder Eintrag zurückschreiben
Public Function WriteIniString(ByVal Sektion As String, _
                               ByVal Key As String, _
                               ByVal Wert As String, _
                               ByVal Inidatei As String)
 
  If Sektion = "" Or Key = "" Then
    MsgBox "Sektion oder Key fehlt", vbCritical, " Fehler..."
    Exit Function
  End If
 
  WritePrivateProfileString Sektion, Key, Wert, Inidatei
 
End Function

Sektion = "Sektion"
Key = "Key"
IniWert = GetIniString(Sektion, Key, "", IniDatei)

Sektion = "Sektion"
Key = "Key"
IniWert = "mein Ini-Wert"
Call WriteIniString(Sektion, Key, IniWert, VBCopyIni)

...enden die Fragen nie?