number of bytes in audio data

Private m_hMemBuffer As Long
Private m_lPtrBuffer As Long
Private m_lBufferSize As Long
Private m_lCurrentReadSize As Long

Private m_sFile As String

Private Const cErrBase = 29670

Public Property Get FileName() As String
   FileName = m_sFile
End Property
Public Property Let FileName(ByVal sFile As String)
   If (OpenFile(sFile)) Then
      m_sFile = sFile
   End If
End Property

Private Function AllocateBuffer() As Boolean
   FreeBuffer
   m_hMemBuffer = GlobalAlloc(GPTR, 