Function sCheckBoxesNachdb(iZ as Integer) as String
   sCheckBoxesNachdb = ""
   For i = 0 to iZ
       ' Leerzeichen am Anfang vermeiden
       If sCheckBoxesNachdb = "" then
            sCheckBoxesNachdb = CheckBoxName(i).Value
       ' und weiter alle Values eintragen
       Else
            sCheckBoxesNachdb =  sCheckBoxesNachdb & CheckBoxName(i).Value
       End if
   Next i
End Function

Tabelle("sChecks") = sCheckBoxesNachdb(Arraygröße) ' Arraygröße = iZ

Function sCheckBoxesAusdb (dbSpalte as String)
   Dim Z as Integer
   Dim iValue as Integer
   Z = 1
   Du Until Z = Len(dbSpalte) + 1
      ' Weil alle Values in einem String gespeichert wurden
      ' werden daraus wieder Integer - Werte gemacht
      iValue = Mid(dbSpalte), Z, 1)
      ' an CheckBoxes übergeben
      CheckBoxName(Z -1).Value = iValue
      Z = Z + 1
   Loop
End Function

sCheckBoxesAusdb RS("sChecks")