' Connect to the top-level ClearTool object Dim ClearTool As New ClearCase.ClearTool On Error Resume Next ' Issue a cleartool command using the IClearTool's default property (CmdExec) MsgBox "Output from CmdExec:" & vbCrLf & ClearTool("pwv") If Err.Number <> 0 Then MsgBox "ClearTool returned error: " & Err.Description Err.Raise Err.Number End If