Base)
            If Len(sNew) &gt; 0 Then
                ObjReplace = True
                If InStr(sNew, "\") = 0 Then
                    tok.Token(i) = NormalizePath(sPath) &amp; sNew
                Else
                    tok.Token(i) = sNew
                End If
            End If
        End If
    Next
End Function

Public Function OptReplace() As Boolean
    Dim i As Long
    Dim sOpt As String, sNew As String

    If tok Is Nothing Then Exit Function
    On Error Resume Next
    For i = 0 To t