' 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