Dim colButton As Collection 'Collection of Button 'This to the top of all the code.
Private Sub UserForm_Initialize()
Dim ctrl As MSForms.Control
Dim clsObject As Class1
'Create New Collection To Store Custom
Set colButton = New Collection
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CommandButton" Then
Dim m
m = ctrl.Name
Select Case ctrl.Name
Case "CommandButton1", "CommandButton2", "CommandButton4"
Set clsObject = New Class1
Set clsObject.Button = ctrl
colButton.Add clsObject
End Select
End If
Next
End Sub