048 + 3, App.EXEName &amp; ".cFileIcon", "No
          filename specified."
         Exit Function
      End If
   End If
   If (m_tID.idCount = 0) Then
      Err.Raise vbObjectError + 1048 + 4, App.EXEName &amp; ".cFileIcon", "Icon
       contains no images."
      Exit Function
   End If
   
   ' Now start writing:
   If (sFileName &lt;&gt; "") Then
      m_sFile = sFileName
   End If
   
   ' Open the file for write:
   hFile = CreateFile(m_sFile, GENERIC_WRITE, 0, ByVal 0&amp;, CREATE_ALWAYS,
    FILE_A