Select Case VB 2010

[Gian1959]

In un Modulo in VB 2010
sto cercando di creare una Public Sub
che mi permetta di inserire in tutti i Buttons
dei numeri o lettere ma non riesco perchè
non so cosa mettere dopo Select Case ??????
dice che deve essere un testo ma non capisco
di che testo, o altro, si tratta.
Potete aiutarmi?

Public Sub ScriviNum()

Select Case ?????

case BtnUno
If txtDisplay.Text <> "0" Then
txtDisplay.Text += "1"
Else
txtDisplay.Text = "1"

End If

Case btnDue
If txtDisplay.Text <> "0" Then
txtDisplay.Text += "2"
Else
txtDisplay.Text = "2"

End If

Case btnTre
If txtDisplay.Text <> "0" Then
txtDisplay.Text += "A"
Else
txtDisplay.Text = "A"

End If
ecc..