Dim strItemID As String
Dim oTrkItem As Object
'Assuming valid oTrkItem Object.
...
strItemID = oTrkItem.ID