Сохранение состояния нескольких checkbox для выбора из combobox

[MaxxVer]

Добрый день!

Имеется форма с 15 checkbox и 1 combobox.
Поставил перед собой задачу реализовать на форме следующую возможность:
1) Пользователь устанавливает галочки на нескольких cheskbox
2) На форме кнопка по которой он может сохранить свой выбор - выдается форма для ввода названия своего выбора. После ввода названия, в combobox добавляется это название (AddItem).
3) Состояния cheskbox`ов должно как-то сохраниться и ассоциироваться при следующем запуске формы с сохраненным в combobox названием. Чтобы при выборе соответствующего Item из combobox расставлялись галочки на cheskbox`ах.
Понимаю как реализовать первые 2 пункта, а с 3 никак не могу домыслить принцип... Может у кого было что-то подобное, или подскажите примерно как это можно сделать? Пример не прикладываю так как мне достаточно будет понять принцип, реализую сам .

[IgorGO]

перехватите событие "закрытие формы" (Private Sub UserForm_QueryClose...) запишите состояние checkbox_в в реестр, или во внешний файл. состояние checkbox_в легко уложить в строку "01011..." или в длинное целое установив (сбросив) соотв. № checkbox_а бит
получить состояние сheckbox_в достаточно 1 раз при инициализации формы

удачи!

[MaxxVer]

Спасибо! Со строкой "01011..." понял, это идея!, записать строку в txt тоже смогу. Только как лучше реализовать привязку названия в combobox_е со строкой состояний "01011..." - записывать в txt сначала название потом через например знак "_" строку, а потом при инициации извлекать до "_" - названия, а после "_" - строки состояний..? Или есть проще/гибче решение..?

[IgorGO]

предполагаем чекбоксов 15 шт., названы они CheckBox1, CheckBox2, CheckBox3 ... CheckBox15, находятся на форме UserForm1 тогда получить их состояние в строку или в длинное целое можно так:

Public sState As String, lState As Long

Sub SetCheckBoxState()
  Dim i As Long, n As Long, sL As String, sR As String
  If Len(sState) < 15 Then sState = String(15, "0")
  With UserForm1
    For i = 0 To .Controls.Count - 1
      If .Controls(i).Name Like "CheckBox*" Then
        n = Val(Mid(.Controls(i).Name, 9, 2))
        If n > 1 Then sL = Left(sState, n - 1) Else sL = ""
        If n < Len(sState) Then sR = Right(sState, Len(sState) - n) Else sR = ""
        sState = sL & IIf(.Controls(i).Value, 1, 0) & sR
        lState = IIf(.Controls(i).Value, lState Or 2 ^ (n - 1), lState And 2 ^ 16 - 1 - 2 ^ (n - 1))
      End If
    Next
  End With
End Sub

[MaxxVer]

Ругается на "Val" в строке "n = Val(Mid(.Controls(i).Name, 9, 2))". Довольно сложный алгоритм для моего уровня знаний, не могу сам разобраться...
(Argument not optional)

[IgorGO]

в указанной строке достаточно аргументов и у Mid, и у Val.

ищите проблему сами или покажите файл

[IgorGO]

с битами проще работать.
установить ранее записанное в переменную состояние чекбоксов практически та же процедура, только с одной строкой в цикле по контролам:

.Controls(i).Value = lstate and 2^(n-1) = 2^(n-1)

[MaxxVer]

Спасибо! Так я и не разобрался с той ошибкой, переписал по своему (через текстовый файл), но всё получилось. Сейчас бьюсь над тем как удалять из txt файла последнюю строку.. Что-то поиск не дал результата.. Не подскажете?

[Hugo121]

Переписать всё в новый файл без последней строки.

[MaxxVer]

А как обратиться к последней строке?