ok 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 enumerated Option string
        sNew = ReadIniFile(IIf(bPrepend, "Insert", "Append"), CStr(iIndex), "")
        If Len(sNew) = 0 Then Exit Do
        OptAppend = True
        ' extract Option name from that
        i = InStr(sNew, "