ok.TokenCount - 1
        sOpt = tok.OptionName(i)
        If Len(sOpt) &gt; 0 Then
            sNew = ReadIniFile("ReplaceOpt", sOpt, "~*~")
            If sNew &lt;&gt; "~*~" Then
                OptReplace = True
                tok.Token(i) = "/" &amp; sOpt &amp; ":" &amp; sNew
            End If
        End If
    Next
End Function

Public Function OptAppend(ByVal bPrepend As Boolean) As Boolean
    Dim i As Long, iIndex As Long
    Dim sOpt As String, sNew As String
    Dim iFirstOpt As Long

    If t