Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
  "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal lpKeyName As Any, _
ByVal lsString As Any, ByVal lplFilename As String) As Long

For i = 0 To 7
        sLabel2 = "Label" & (i + 1)
        WritePrivateProfileString "Label", sLabel2, Form1.Label1( _
          i).Caption, FormatDatei
Next