Checkboxen zusammenfassen

Private Sub CheckBox1_Click()
If CheckBox1.Value Then
[L2] = [O2]
Else
[L2] = ""
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox1.Value Then
[L3] = [O3]
Else
[L3] = ""
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox1.Value Then
[L4] = [O4]
Else
[L4] = ""
End If
End Sub

.....für die ersten drei.
Meine Frage ist....muß ich das jetzt so weiter machen, oder kann man das in einer Art Schleife machen wo man die Checkboxen alle zusammenfassen kann.
Vorab schon mal Dank!
Gruß Uwe