     End If
        Next iPos
    End If
    MenuCaption = "&amp;" &amp; iIndex &amp; ")  " &amp; sOut
    
End Property
Public Sub AddFile(ByVal sfileName As String)
Dim iFile As Long
Dim iExistIndex As Long
Dim iSwap As Long
    ' does the file already exist?
    For iFile = 1 To m_lFileCount
        If (UCase$(m_sFiles(iFile)) = UCase$(sfileName)) Then
            iExistIndex = iFile
            Exit For
        End If
    Next iFile
    
    ' If it exists swap all the entries above it down
    ' by one