? (application.WizHook.DbcVbProject is application.VBE.ActiveVBProject)
True

Public Function CheckForModule(ByVal argModule As String) As Long
    If Not BasicInclude.DebugMode Then On Error GoTo Error_Handler Else On Error GoTo 0
    Dim v As Variant
    Dim out As Long: out = 0

    For Each v In Application.VBE.ActiveVBProject.VBComponents
        If v.Name = argModule Then
            out = 1
        End If
    Next

Error_Exit:
    CheckForModule = out
    Exit Function
Error_Handler:

    StandardErrorBox "CheckForModule", Err
    Resume Error_Exit
End Function