Sub Try()

Dim f As Form

On Error GoTo err_Try

Set f = Screen.ActiveControl.Parent
Do
    Debug.Print f.Name
    Set f = f.Parent
Loop

err_Try:
Exit Sub

End Sub

Sub Try()

Dim f As Object
On Error GoTo err_Try
Set f = Screen.ActiveControl
Do
    Debug.Print TypeName(f), f.Name
    Set f = f.Parent
Loop

err_Try:
Exit Sub

End Sub

Try
Textbox       t
Page          p2
TabControl    TabCtl10
Form_f        f
Form_ff       ff

Function CurrentControlPath() As String

Dim f As Object, f0 As Object, c As Control, s As String

On Error GoTo err_CCP

Set f = Screen.ActiveControl
s = f.Name
Do
    Set f0 = f
    Set f = f.Parent
    Select Case TypeName(f)
        Case "Page", "TabControl"
        Case Else
            For Each c In f
                If TypeName(c) = "SubForm" Then If c.Form Is f0 Then s = c.Name & ".Form!" & s
            Next
    End Select
Loop

err_CCP:
If s = "" Then
    CurrentControlPath = ""
Else
    CurrentControlPath = "Forms!" & f.Name & "!" & s
End If
Exit Function

End Function