:"): If i = 0 Then i = Len(sNew) + 1
        If Left$(sNew, 1) = "/" And i &gt; 2 Then
            sOpt = Mid$(sNew, 2, i - 2)
            ' Check whether this option already exists
            For i = iFirstOpt To tok.TokenCount - 1
                If UCase$(tok.OptionName(i)) = UCase$(sOpt) Then Exit For
            Next
            If i &gt;= tok.TokenCount Then
                ' New Option - append to end or insert just before the existing
                 options
                tok.Insert sNew, IIf(bP