s"
   
   '// unknown error
   Case ERROR_UNDEFINED
      MACErrorMessage = "Undefined error"
      
   Case Else
      MACErrorMessage = "Unrecognised/Unknown error"

   End Select
End Function

Public Property Get CompressionLevel() As EMacCompressionLevel
   CompressionLevel = m_eCompressionLevel
End Property
Public Property Let CompressionLevel(ByVal eLevel As EMacCompressionLevel)
   If (eLevel = COMPRESSION_LEVEL_EXTRA_HIGH) Or (eLevel =
    COMPRESSION_LEVEL_FAST) Or _
      (eLevel = COMPRESSION_LEV