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.

[Lenggries]

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?

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

You may have on off-by-one error, in which case you would use index + 1 instead.

Alternatively, if you want to separate your computer numbers from the computer labels (ie. Computer #107 occupies the 93rd slot, for example), you would use this:

Private Sub C1_Click(index As Integer)
    Label1.Caption = Right$(C1(index).Caption,Len(C1(index).Caption-2)
End Sub