Conv(m_sFileNameApe, vbFromUnicode)
   ReDim Preserve b(0 To UBound(b) + 1) As Byte
   lR = GetID3Tag(VarPtr(b(0)), m_tID3)
   If Not (lR = 0) Then
      LSet m_tID3 = m_tID3Blank
   End If
End Function

Public Property Get WavFileName() As String
   WavFileName = m_sFileNameWav
End Property
Public Property Let WavFileName(ByVal sFileName As String)
   m_sFileNameWav = sFileName
End Property

Friend Sub SetProgressCallbackPtr(ByVal lPtr As Long)
   m_lPtrProgress = lPtr
End Sub

Friend Sub ProgressCallback(