quizás te pueda servir ésto, hace tiempo encontré éste que busca el formulario que nosotros le indiquemos, creo que con una breve modificación podrás lograr lo que buscas el asunto es el foreach
Código:
Public Function FormularioActivo(NmbFormulario As String) As Boolean
Dim Formulario As Form
For Each Formulario In Forms
If (UCase(Formulario.Name) = UCase(NmbFormulario)) Then
FormularioActivo = True
Exit For
End If
Next
End Function
Saludos