Mehrere Textbox sperren durch CheckBox

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
TextBox1.Locked = True
Else: TextBox1.Locked = False
End If
End Sub

Private Sub CheckBox2_Change()

If CheckBox2.Value = True Then

TextBox2.Locked = True

Else: TextBox2.Locked = False

End If

End Sub

Private Sub CheckBox3_Change()

If CheckBox3.Value = True Then

TextBox3.Locked = True

Else: TextBox3.Locked = False

End If

End Sub

Private Sub CheckBox4_Change()

If CheckBox4.Value = True Then

TextBox4.Locked = True

Else: TextBox4.Locked = False

End If

End Sub

Private Sub CheckBox5_Change()

If CheckBox5.Value = True Then

TextBox5.Locked = True

Else: TextBox5.Locked = False

End If

End Sub

******************
UserForm1
Private Sub UserForm_Activate()
Dim textB As MSForms.Control
Dim checkB As MSForms.Control
Dim L As Long
L = 1
ReDim chkBox(1 To L)
For Each checkB In Me.Controls
If TypeOf checkB Is MSForms.CheckBox Then
ReDim Preserve chkBox(1 To L)
Set chkBox(L) = New Klasse1
Set chkBox(L).CB = checkB
For Each textB In Me.Controls
If TypeOf textB Is MSForms.TextBox Then
Set chkBox(L).TB = textB
End If
Next
End If
L = L + 1
Next
End Sub

Modul1
Public chkBox() As New Klasse1

*************************
Klassenmodul1    Name:Klasse1
Public WithEvents CB As MSForms.CheckBox
Public WithEvents TB As MSForms.TextBox
Private Sub CB_Change()
TB.Locked = CB.Value
End Sub