RemoveCommand "MyCommand" ' remove any instance of existing command
set cmd = Application.CreateCommand("MyCommand")
cmd.ScriptingName = "MyCommand"
cmd.Language = "VBScript"
cmd.Code = "LogMessage ""MyCommand invoked"""
cmd.description = "This is my very fine command"
Application.AddCommand cmd
LogMessage "Command description: " & cmd.description
' Result of the above script:
' INFO: "Command description: This is my very fine command"