t FileName() As String
   FileName = m_sFile
End Property
Public Property Get BufferSize() As Long
   BufferSize = m_lBufferSize
End Property
Public Property Let BufferSize(ByVal lSize As Long)
   freeBuffer
   If (AllocateBuffer(lSize)) Then
      m_lBufferSize = lSize
   Else
      m_lBufferSize = 0
   End If
End Property
Public Property Get BufferPointer() As Long
   BufferPointer = m_ptrMem
End Property
Public Function WriteBufferToFile(ByVal lSize As Long) As Long
Dim lR As Long
Dim lBytesWritten As Lo