Dim Abschnitt As String
Dim Schluessel As String
Dim Wert As String
Dim i As Long
Dim j As Long
Dim k As Long
For i = 1 To 5
  Abschnitt = "Start_" + CStr(i)
  For j = 1 To 5
    Schluessel = "Eintrag_" + CStr(j)
    For k = 1 To 5
      Wert = k + j + i
      WritePrivateProfileString Abschnitt, Schluessel, Wert, myIniFile
    Next
  Next
Next

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)