de = 58
         errDesc = "Output file already exists"
      Case 3
         errCode = 1030
         errDesc = "Existing operation in progress"
      Case 4
         errCode = 1031
         errDesc = "Incorrect compression level"
      End Select
   End If
   Err.Raise errCode, App.EXEName &amp; ".cMACAudio", errDesc
End Sub

Private Function MACErrorMessage(ByVal lMacErrorCode As Long) As String
   Select Case lMacErrorCode
   '// file and i/o errors (1000's)
   Case ERROR_IO_READ
      MACErrorMessage = 