 StrConv(m_sFileNameApe, vbFromUnicode)
      ReDim Preserve b(0 To UBound(b) + 1) As Byte
      ShowFileInfoDialog VarPtr(b(0)), hwnd
   End If
End Sub

Public Function Verify() As Boolean
   
   If (m_bOperationInProgress) Then
      pErr 3, False
      Exit Function
   End If
   
   If Not (FileExists(m_sFileNameApe)) Then
      pErr 1, False
   Else
      m_bOperationInProgress = True
      
      mMACAudio.MACAudio = Me
      
      m_pPercentDone = 0
      m_pKillFlag = 0
      Dim b() As Byte
      D