, otherwise swap all entries down by one:
    If (iExistIndex = 0) Then
        If (m_lFileCount &lt; MaxFileCount) Then
            m_lFileCount = m_lFileCount + 1
        End If
        iSwap = m_lFileCount
    Else
        iSwap = iExistIndex
    End If
    
    For iFile = iSwap - 1 To 1 Step -1
        m_sFiles(iFile + 1) = m_sFiles(iFile)
    Next iFile
    
    ' Add this entry:
    m_sFiles(1) = sfileName
    
End Sub
Public Function Save(ByRef cR As cRegistry) As Boolean
On Error GoTo SaveError

Di