ile For Binary Access Write As #iFile
      ' new in 2.3
      Dim lMagic As Long
      lMagic = MAGIC_NUMBER
      Put #iFile, , lMagic
      Put #iFile, , lVersion
      
      Put #iFile, , lStart
      Put #iFile, , b()
      Put #iFile, , Len(sKeys)
      Put #iFile, , sKeys
      Close #iFile
      
      SaveToFile = True
   End If
   
   Exit Function
   
SaveToFileError:
   Dim lErr As Long, sErr As String
   lErr = Err.Number: sErr = Err.Description
   If (iFile &lt;&gt; 0) Then
      Close #iFile