Imports System.Diagnostics
Imports System.IO

Dim oControlDefs As ControlDefinitions = ThisApplication.CommandManager.ControlDefinitions
	
Using sw As New StreamWriter("C:\InventorCommands.txt")    
    For Each oControlDef As ControlDefinition In oControlDefs
	   If (Not oControlDef.BuiltIn) Then
        sw.Writeline( oControlDef.InternalName + vbTab +  oControlDef.DescriptionText)        
	   End If	
    Next
End Using