Any way to make these shorter?

[bthology]

Thanks Spoo! i made my array copying and pasting C1 (commandbuttons)
I renamed the Captions CH01, CH02 etc..

Private Sub C1_Click(index As Integer)
    Label1.Caption = C1(index).Caption
    
End Sub

Now when i click on the buttons, the CH01 and CH02 show up as my Label1.Caption. Is there any way to remove the CH part of it?

Thanks for everyones patience, i am re-creating my app slowly.