Es posible referenciar un textbox en una función?

[culd]

Código vb:

Me.ActiveControl
 

con eso obtenes el control activo

Entonces simplemente haces

Código vb:

Private Sub Text1_GotFocus()
    Call evento(Me.ActiveControl)
End Sub
 

Y tu evento seria algo como

Código vb:

Public Sub evento(eltextbox As TextBox)
    'Lo que quieras hacer
End Sub