la cosa + banale che mi viene in mente è usare una bella serie di if...anzi no...
setta un evento ad ogni getfocus dei textbox...
una cosa del tipo
codice:
Dim x
Private Sub Text1_GotFocus()
x = "text1"
End Sub
e fai questo per ogni textbox
alla fine hai una variabile dove c'è scritto ki ha il focus