Boolean

   If (m_bOperationInProgress) Then
      pErr 3, False
      Exit Function
   End If

   If Not (FileExists(m_sFileNameApe)) Then
      pErr 1, False
   Else
      If (FileExists(m_sFileNameWav)) Then
         pErr 2, False
      Else
      
         m_bOperationInProgress = True
         mMACAudio.MACAudio = Me
         
         m_pPercentDone = 0
         m_pKillFlag = 0
         
         Dim bFileIn() As Byte
         bFileIn = StrConv(m_sFileNameApe, vbFromUnicode)
         ReDim Preserve bF