se il controllo ha lo stato ATTIVO allora fai questo

[tas]

Potresti usare la proprietà ActiveControl, in questo modo:

Dim tb As TextBox

If TypeOf Me.ActiveControl Is TextBox Then
    Set tb = Me.ActiveCOntrol
    tb.Text = tb.Text & "1"
End If

GotFocus è un evento, non una proprietà.