Dim oTrkItemType As Object
...
Set oTrkItemType = oTADBRoot.TrkItemTypes.Item("Body Component")
MsgBox "Item Type ID:" & oTrkItemType.ID