For Each c As Control In XX.Controls
If TypeOf c Is Label Then
Select case Cint(c.Name.Last) (o se sono più di 10... Select case Cint(C.Name.Replace("label",""))
praticamente hai scomposto Label e Numeri.
Puoi benissimo fare una Function che dal numero ti ritorni il Testo: no SelectCase ma
If Cint(c.Name.Last) = MyNum then Return c.Text