' Connect to the top-level ClearCase object
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
Dim Act as CCActivity
Dim AtTypes As CCAttributeTypes
Dim StringAtTypes As CCAttributeTypes
Dim IntegerAtTypes As CCAttributeTypes
Set VOB = CC.VOB("\code")
' Get the collection of attributes in a particular VOB
Set AtTypes = VOB.AttributeTypes
' Set up empty collections
Set StringAtTypes = CC.AttributeTypesEmpty
Set IntegerAtTypes = CC.AttributeTypesEmpty
Dim AtType As CCAttributeType
For Each AtType in AtTypes
' Add integer-valued and string-valued attribute types to their own
' collections; skip the rest
Select Case AtType.ValueType
Case vbLong
IntegerAtTypes.Add AtType
Case vbString
StringAtTypes.Add AtType
End Select
Next