BlockETW_COMPLUS_ETWEnabled_ENV.vba

Sub AutoOpen()

Dim objUserEnvVars As Object
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
objUserEnvVars.Item("COMPlus_ETWEnabled") = "0"

End Sub