x = iIndex + 1
    Loop
End Function

Public Function OptRemove() As Boolean
    Dim i As Long, iIndex As Long
    Dim sOpt As String, sRmv As String, sFile As String
    Dim iFirstOpt As Long
    Dim bWithPath As Boolean

    If tok Is Nothing Then Exit Function
    On Error Resume Next
    ' Prepare: where is the first option in the present tokens?
    For iFirstOpt = 0 To tok.TokenCount - 1
        If Len(tok.OptionName(iFirstOpt)) &gt; 0 Then Exit For
    Next
    iIndex = 1
    Do
        ' Get next en