' Connect to the top-level ClearCase object Dim CC As New ClearCase.Application Dim VOB as CCVOB Dim Act as CCActivity ' Get a VOB from the ClearCase.Application object (uses IClearCase), ' giving the VOB-tag and checking for errors. On Error Resume Next Set VOB = CC.VOB("\code") If Err.Number <> 0 Then MsgBox "CC.VOB returned error: " & Err.Description End If ' Get a particular activity from the VOB, checking for errors On Error Resume Next Set Act = VOB.Activity("activity990513.133238") If Err.Number <> 0 Then MsgBox "VOB.Activity returned error: " & Err.Description Else MsgBox "Got activity named " & Act & " from VOB named " & VOB End If