例: VOB からアクティビティにアクセスする

' 最上位の ClearCase オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB as CCVOB
Dim Act as CCActivity

' ClearCase.Application オブジェクトから VOB を取得します (IClearCase を使用)。
' その際、VOB タグの指定とエラーのチェックを行います。

On Error Resume Next
Set VOB  =  CC.VOB("¥code")
If Err.Number <> 0 Then
     MsgBox "CC.VOB returned error: " & Err.Description
End If

' VOB から特定のアクティビティを取得し、エラーをチェックします。

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