' Connect to the top-level ClearCase application object Dim CC As New ClearCase.Application Dim VOB As CCVOB ' Get a VOB from its VOB tag. Set VOB = CC.VOB("\caroltest") Dim strMounted As String If VOB.IsMounted Then strMounted = " is mounted" Else strMounted = " is not mounted" End If ' Display some VOB properties MsgBox VOB.TagName & " on host " & VOB.Host & strMounted & _ " and has owner " & VOB.Owner & " and group " & VOB.Group