Get UserForm checkbox caption and pass to another UserForm on click or mouse down

Hello All,

I am somewhat new to Excel VBA and have been searching online for help. I have created a UserForm to help with data entry and database control and need some special functions.

I currently have 2 UserForms, one for Employee info (with multipages) and the other for specific qualifications (OQ Tasks) and dates qualified. Both will update the WorkSheet.

The one for employee info has three multipages, one which editing existing data is done. I have a frame group (OQ Tasks) on that page with 16 checkboxes for each task required for that employee. The caption for each checkbox has the Task Number assigned to it. What I want to do is, if the qualification needs to be edited or deleted, then the user will simply click on the task checkbox and another UserForm (OQDate) will open with basic employee information, the task number (from the checkbox) and the date the task qualifcation was completed (if available) or add a date for the task.

The problem I am having now is passing the checkbox caption (which is the task #) to a label caption on the OQDate userform. I've done it for a single checkbox, but I want to do it for any checkbox that is clicked. I've already coded it (using on MouseDown) so that the checkbox value stays the same when clicked (the OQDate userform will update the status). I ran a loop I found online and it shows the last checkbox instead of the one I clicked on.

Also, to keep track of the checkboxes, I've renamed them to ckboxEdit201, ckboxEdit202, ckboxEdit607, etc. The tasks aren't numerically contiguous.
Each one has its own caption property set to the last 3 digits of its name. ie ckboxEdit201 caption is 201.

Is there a way to run an if or select statement to dynamically get the checkbox caption? And would it be placed in the Sub for OnClick or MouseDown? Or would I need to make it a separate Sub and call it in an Event Handler?

So the synopisis would be something like:
UserForm1:Multipage #3(PageEdit):FrameOQ: CkboxEdit201 -> onMouseDown ->Get the CheckBox Caption - pass it through MsgBox confirmation to frmOQDate (other UserForm) label caption. (Do this for any CheckBox when MouseDown).

Thanks in advance for your help!

Here's what I have so far. It gets the information but only displays the last checkbox information. What I need is to get it for the checkbox that was clicked on.

Sub PassOQInfoToEdit()
   Dim c As Control
   Dim taskNum As String, task As String
   Dim taskDate As Date
    
   For Each c In UserForm1.MultiPage1(3).FrameOQ.Controls
     If TypeName(c) = "CheckBox" Then
        If c = True Then
         taskNum = c.Caption
         taskDate = c.ControlTipText
         Else: taskNum = c.Caption     'I use the Else because it doesn't matter if the value is True or False. I only need the Caption
      End If
      End If
   Next c
    
    frmOQDate.lbOQtaskNum.Caption = taskNum
    frmOQDate.txtOQdate.Value = taskDate
    frmOQDate.txtOQEmpName.Value = UserForm1.txtEditEmpName
    frmOQDate.txtOQposition.Value = UserForm1.cboxEditPosition
    frmOQDate.txtOQVeriforce.Value = UserForm1.txtEditVeriforce

  End Sub

I also have the event handler MouseDown on the checkboxes. I use MD so that it doesn't change the value when the checkbox is clicked. It's used to call another UserForm that will update the checkbox value. This works too, but I'm trying to get a MouseDown or click event if any of the 16 checkboxes are clicked, and to get the information for that particular checkbox. Right now I have to right code for each checkbox individually.

Private Sub ckboxEdit201_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim iReply As MsoAlertButtonType

iReply = MsgBox(Prompt:="Are you sure you want to make changes? ", _
     Buttons:=vbYesNo, Title:="Confirm Action")
     If iReply = vbNo Then
        If Me.ckboxEdit201.Value = True Then 
            Me.ckboxEdit201.Value = True       'Keeps the value so that if they decide to
        Else: Me.ckboxEdit201.Value = False  'cancel, they won't have to click the checkbox again
        End If
        Exit Sub
        Else:
        PassOQInfoToEdit
        frmOQDate.Show
     End If
End Sub

thanks AlphaFrog. Is there a way to make a loop or while statement? There are 16 checkboxes to get captions from just for the tasks. Im trying to avoid writing the code that many times!

Thanks! That's what I'm looking for. I'll try it!