ys iOrigCount - 1, sKeys
      
      LoadFromFile = True
   End If
   
   Exit Function

LoadFileError:
   Dim lErr As Long, sErr As String
   lErr = Err.Number: sErr = Err.Description
   If (iFile &lt;&gt; 0) Then
      Close #iFile
   End If
   Err.Raise lErr, App.EXEName &amp; ".vbalImageList", sErr
   Exit Function
End Function
Private Sub pDeserialiseKeys(ByVal lStart As Long, ByVal sKeys As String)
Dim iPos As Long
Dim iLastPos As Long
Dim lKey As Long
Dim lKeyCount As Long

   lKey = lStart
   On Er