Dim mTFNr As Long
 
Private Sub Command1_Click()
    Form2.Show
End Sub
 
Private Sub Form_Activate()
    If mTFNr > 0 Then
        Select Case mTFNr
            Case 1: Text1.SetFocus
            Case 2: Text2.SetFocus
            Case 3: Text3.SetFocus
        End Select
    End If
    Debug.Print Me.ActiveControl.Name
End Sub
 
Private Sub Text1_GotFocus()
    mTFNr = 1
End Sub
 
Private Sub Text2_GotFocus()
    mTFNr = 2
End Sub
 
Private Sub Text3_GotFocus()
    mTFNr = 3
End Sub

Me.ActiveControl.Name

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1