Private Property Let hFile(ByVal vData As Long)<font color="#C0C0C0">
   If vData = 0 Then
     </font><font color="#008000">'Close File</font><font color="#C0C0C0">
     ....
    <Snips>
</font>End Property

Private Property Get hFile() As Long<font color="#C0C0C0">
   If mvarhFile = 0 Then
</font>      <font color="#FF0000">hFile = FreeFile</font> <font _
  color="#008000">‘<-Problem !!!</font>
End Property