Ændre Objekt.Name

Hej
jeg er ved at lave en program hvor når man taster noget ind i en tekstboks så bliver det flyttet over i en label bare med store bogstaver. Hvis jeg har flere tekstbokse  kan jeg så gøre at navnet på tekstboksene ændres når jeg trykker på dem?
eks. 
Private Sub Text1_GotFocus()
    Text1.Name = "Tekst"
End Sub

Private Sub Text2_GotFocus()
    Text2.Name = "Tekst"
End Sub

Private Sub Tekst_Change()
    Label1.Caption = UCase(Tekst.Text)