Sottomaschera con codice che va in errore

Ho un problema sul codice seguente. 

Il codice è stato generato per la maschera A e fintanto che lavoro sulla maschera A funziona tutto alla perfezione.

Ho creato una maschera B che contiene la maschera A come sottomaschera: in questo caso il codice non funziona.

Spiego meglio di seguito nel dettaglio:

SITUAZIONE 1: Operare direttamente sulla maschera A

 Lo scopo del codice è quello di agevolare l'inserimento dati in una cella di testo lungo aprendo una maschera di appoggio frmZoom. 

Sequenza operativa:

1) tramite doppio click sulla cella di testo in questione si apre la maschera frmZoom

Private Sub EMAIL_SUBJECT2_DblClick(Cancel As Integer)
StrZoomText = Me.ActiveControl
StrZoomControl = Me.ActiveControl.Name
StrOpenForm = Me.Name
DoCmd.OpenForm "frmZoom"
End Sub

All'interno della frmZoom ho inserito un pulsante di salvataggio "Chiudi"

2) cliccando sul pulsante "Chiudi": si chiude la frmZoom dopo aver salvato il contenuto

Private Sub Command2_Click()
Forms(StrOpenForm)(StrZoomControl) = Me.txtTextField
DoCmd.Close
End Sub

Funziona tutto perfettamante finchè opero sulla maschera

SITUAZIONE 2: Operare sulla maschera A inserita come sottomaschera della maschera B:

Il punto 1) funziona correttamente

il punto 2) va in errore. Immagino che il problema sia legato all'utilizzo del "Me."

C'è un modo elegante per mettere a posto il codice in modo che funzioni in entrambe le situazioni?

Grazie 

Francesco