con eso obtenes el control activo
Entonces simplemente haces
Código vb:
Ver originalPrivate Sub Text1_GotFocus()
Call evento(Me.ActiveControl)
End Sub
Y tu evento seria algo como
Código vb:
Ver originalPublic Sub evento(eltextbox As TextBox)
'Lo que quieras hacer
End Sub