Looping through text boxes and checkbox captions on a user form

[PioSwgr]

On a user form, I have 2 sets of 25 text boxes and 1 set of 25 checkbox named TextQty, TextPrice, CheckBox respectively. I am trying to pull the checkbox caption and the values inside the textboxes into a listbox if the checkbox is selected. I want to be loop through each set of the textboxes and checkboxes

 

[PioSwgr]

This is the error code I get. Unsure how to loop properly thru this considering Im calling out a caption as well.

 

[NdNoviceHlp]

Hi *PioSwgr. I don't quite follow the textbox values in the listbox if the checkbox is selected but this will probably get you started. You can loop through the controls of the userform and get information. You will need to adjust your userfom name to suit. HTH. Dave

Sub Test()
Dim ctl As Control
For Each ctl In UserForm1.Controls
If InStr(ctl.Name, "Text") Then
MsgBox UserForm1.Controls(ctl.Name).Value
End If
If InStr(ctl.Name, "Check") Then
MsgBox UserForm1.Controls(ctl.Name).Caption
End If
Next ctl
End Sub