set As Long)
Dim lSample As Long
   lSample = mmioSeek(m_hMMioIn, SEEK_CUR, 0) - m_lDataOffset
   If (lSample + lSampleOffset * 4) &gt; m_lAudioLength Then
      pInternalErrorHandler 8
   ElseIf (lSample - lSampleOffset * 4) &lt; 0 Then
      pInternalErrorHandler 8
   Else
      mmioSeek m_hMMioIn, lSampleOffset * 4, SEEK_CUR
   End If
End Sub

' Gets the size of the buffer in stereo samples
Public Property Get ReadBufferSize() As Long
   ReadBufferSize = m_lBufferSize \ 4
End Property

' Gets the size of