frames caption in textbox 1x laten weergeven

[bjornesto]

Beste

Ik heb hieronder een code dat gedeeltelijk werkt.

Bedoeling is dat men op de userform dit aanvinkt wat men nodig heeft en op add klikt
Daarna zou er op een andere userform dit moeten ingevuld worden.

Echter zou ik graag willen dat men ook de caption van de frames zou vermelden maar telkens maar 1x

dit is de code

'selecteer gewenste checkbox en vul andere userform textbox in
Dim Ctrl As Control
Dim AText, _
    ctrltype, _
    string_approval As String

ctrltype = "checkbox"

'gaat nakijken welke checkbox er aangevinkt is
On Error Resume Next
For Each Ctrl In brc_status.Frame1.Controls
  If Ctrl.Value = True Then
    string_approval = "- " & Me.Frame1.Caption & " "
    If Len(AText) > 0 Then AText = AText & "), ("
    AText = AText & Ctrl.Caption
  End If
Next Ctrl

For Each Ctrl In brc_status.Frame2.Controls
  If Ctrl.Value = True Then
    string_text = "- " & Me.Frame2.Caption & " "
    If Len(AText) > 0 Then AText = AText & "), ("
    AText = AText & Ctrl.Caption
  End If
Next Ctrl

For Each Ctrl In brc_status.Frame3.Controls
  If Ctrl.Value = True Then
    string_text = Ctrl.Caption & " " & Me.Frame3.Caption & " --> make a new request with all access levels including this one"
    If Len(AText) > 0 Then AText = AText & "), ("
    AText = AText & string_text
  End If
Next Ctrl


userform_BRC.txtbx_extra_info_status.Value = string_approval & "(" & AText & ")"