Private Sub CommandButton1_Click()
   Dim Broj As CommandButton
   Set Broj = Me.ActiveControl
   Call string2array(Broj)
   Call ButtonCaptions(Broj)
End Sub