For each of the controls, add an OnFocus event that sets a global string to the name of the control. In your branching, read that global string:
Code:
Private Sub txtName_GotFocus()
gstrFocusHolder = "txtName"
End Sub
Private Sub MySub()
Select Case gstrFocusHolder
Case "txtName"
...
End Select
[/code]