t and the actual error code.  In most cases all you are interested in is whether the
function succeeded or failed, which can be determined by checking the severity bit of the
<span class="code">HRESULT</span>:
</p><pre>
Private Const FAIL_BIT As Long = &amp;H80000000

Private Function FAILED(ByVal hResult As Long) As Boolean
   FAILED = ((hResult And FAIL_BIT) = FAIL_BIT)
End Function
</pre><p>
Knowing that we can now instantiate the object:
</p><pre>
Private m_cdBurn As ICDBurn

Public Sub Initialise(ByVal