ivate m_ptrMem As Long
Private m_sFile As String
Private m_lBufferSize As Long
Private m_hFile As Long

Private Const cErrBase = 29870

Public Sub CloseFile()
   If Not (m_hFile = 0) Then
      CloseHandle m_hFile
      m_hFile = 0
   End If
End Sub
Private Function OpenFile(ByVal sFile As String) As Long
Dim hFile As Long
Dim lErr As Long

   hFile = CreateFile(sFile, _
                 GENERIC_READ Or GENERIC_WRITE, _
                  ByVal 0&amp;, _
                  ByVal 0&amp;, _
                  CR