 i &lt; tok.TokenCount Then
                ' Existing option - remove
                tok.Remove i
                OptRemove = True
            End If
        Else
            ' not formatted as an option - search for file
            bWithPath = (InStr(sRmv, "\") &gt; 0)
            For i = 0 To iFirstOpt - 1
                sFile = UCase$(tok.Token(i))
                If Not bWithPath And Len(sFile) &gt; Len(sRmv) Then
                    If Mid$(sFile, Len(sFile) - Len(sRmv), 1) &lt;&gt; "\" Then
      