you will have to be at the Item level with your objects, for this do work
? Item.Attachments.Count
for i = 1 to Item.Attachments.Count
*Each Attachment In ColAttachments
ThisItemAttachment=Item.Attachments.Item(i)
ThisItemAttachmentDisplayName=ThisItemAttachment.DisplayName
ThisItemAttachmentPathName=ThisItemAttachment.PathName
ThisItemAttachmenttype=ThisItemAttachment.Type
ThisItemAttachmentPosition=ThisItemAttachment.Position
endfor

Hope this helps