Normalerweise würden Sie wohl eine Schleife wie die folgende programmieren. Die Funktion IstFormularOffen() erhält als Argument den Namen des Formulars und gibt einen Boolean-Wert zurück:

Function IstFormularOffen(strFormularname As String) As Boolean

   Dim intAnzahl As Integer

   For intAnzahl = 0 To Forms.Count - 1
      If LCase(strFormularname) = LCase(Forms(intAnzahl).Name) Then
         IstFormularOffen = True
         Exit For
      End If
   Next

End Function