Public Function IsModule(ModuleName As String) As Boolean
    Dim mdl As Access.AccessObject
    
    For Each mdl In CurrentProject.AllModules
        If mdl.Name = ModuleName Then
            IsModule = True
            Exit For
        End If
    Next
End Function