Il codice di MItaly è sintetico e corretto, ma assumendo che l'evento venga generato solo da controlli, è anche inutile il cast, poichè basta il late binding:
codice:
Select Case sender.Text
'...
End Select