Private Sub Command1_Click()
    Label1.Caption = Label1.Caption & "1"
End Sub
 
Private Sub Command2_Click()
    Label1.Caption = Label1.Caption & "2"
End Sub
 
Private Sub Command3_Click()
    Label1.Caption = Label1.Caption & "3"
End Sub
 
Private Sub Command4_Click()
    Label1.Caption = Label1.Caption & "4"
End Sub
 
Private Sub Command5_Click()
    Label1.Caption = Label1.Caption & "5"
End Sub
 
Private Sub Command6_Click()
    Label1.Caption = Label1.Caption & "6"
End Sub
 
Private Sub Command7_Click()
    Label1.Caption = Label1.Caption & "7"
End Sub
 
Private Sub Command8_Click()
    Label1.Caption = Label1.Caption & "8"
End Sub
 
Private Sub Command9_Click()
    Label1.Caption = Label1.Caption & "9"
End Sub
 
Private Sub Command10_Click()
    Label1.Caption = Label1.Caption & "0"
End Sub

Private Sub Command1_Click(Index As Integer)
If Index > 8 Then
    Label1.Caption = Label1.Caption & "0"
Else
    Label1.Caption = Label1.Caption & Index + 1
End If
End Sub