Dim Control As Object
For Each Control In Me.Controls
    If (TypeOf Control Is CommandButton) Then
        Call Command1_Click(Control.Index)
    End If
Next

bu şekilde yapabilirsin, kullanmak için ise Command1 yazan yeri buton ismi ile değiştirmeli ve butonları ayrı ayrı eklemek yerine tek bir butonu çoğaltmalısın.