The following file implements the MOCUS algorithm: MOCUS.xlsm
The "Excersise 1" sheet contains the graphical fault tree, and the fault tree specified with a structure the VBA code can read.