le
   m_vID = Empty
   Erase m_tIDE
   Erase m_tBits
   
   With m_tID
      .idCount = 0
      .idReserved = 0
      .idType = 0
   End With

   ' Here we use API methods to access the file.  We don't need to, but there
   ' is more flexibility this way to ensure we get the correct bits.
   hFile = CreateFile(sFile, GENERIC_READ, 0, ByVal 0&amp;, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0)
   If (hFile &lt;&gt; 0) Then
      ReadFile hFile, m_tID, Len(m_tID), dwBytesRead, ByVal 0&amp;
   
      If (m_tID.