' Connect to the top-level ClearCase object Dim CC As New ClearCase.Application ' Loop over the branches sprouting from a version and display their ' paths using the default property of ICCBranch, and other information Dim Ver As CCVersion Set Ver = CC.Version("\caroltest\testelem.c@@\main\9") Dim strPath as String strPath = Ver.Path Dim Branch As CCBranch For Each Branch in Ver.SubBranches MsgBox Branch & " branch sprouting from " & strPath & " has " & _ Branch.Versions.Count & " version(s); latest version is " _ & Branch.LatestVersion.VersionNumber Next