Dim obj As TContentCheck 'I dont have the source for TContentCheck
Set obj = LoadCheck("MyCheck") 'I dont have the source to LoadCheck
For myVar in obj.Items
   Dim str As String
   str = myVar.Item(1) 'This works
   Dim count As Integer
   count = myVar.Count 'This works
Next