   ' Get the length of the audio
   m_lAudioLength = mmckinfoSubchunkIn.ckSize

   ' Allocate buffer:
   If Not (AllocateBuffer()) Then
      CloseFile
      pInternalErrorHandler 7
      Exit Function
   End If

   OpenFile = True

End Function

' Reads m_lBufferSize stereo samples from the wave file if available,
' otherwise the remaining data. Retruns True if more data available,
' otherwise False.
Public Function Read() As Boolean
Dim dataRemaining As Long
Dim lR As Long
   
   If (m_hMMioIn = 0) Then
 