[SEKTION1]

Option Explicit
 
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 Command2_Click()
    Dim sBuffer As String
    Dim ret As Long
 
    sBuffer = String(255, vbNullChar)
    ret = GetPrivateProfileString("SEKTION1", "PARA1", "DEFAULT", sBuffer, 255, _
      App.Path + "\myIni.ini")
    If ret = 0 Then
        MsgBox "PARA1 konnte nicht eingelesen werden !", vbInformation
    Else
        MsgBox Left(sBuffer, ret)
    End If
End Sub
 
Private Sub Command3_Click()
    Dim ret As Long
 
    ret = WritePrivateProfileString("SEKTION1", "PARA1", "Dies ist Wert meines" & _
      "PARA1", App.Path + "\myIni.ini")
    If ret = 0 Then
        MsgBox "PARA1 konnte nicht geschrieben werden !", vbInformation
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1