values added to collection are duplicated multiple times over

Question

I have a collection of control.names that I want to populate in a msgbox to alert a user when a certain control is blank.

Private Sub CommandButton1_Click()