ull, e, 0&amp;, s, Len(s), ByVal pNull)
    If c Then ApiError = Left$(s, c)
End Function


Public Function ObjReplace() As Boolean
    Dim i As Long
    Dim sTok As String, sBase As String, sPath As String, sNew As String

    If tok Is Nothing Then Exit Function
    On Error Resume Next
    For i = 0 To tok.TokenCount - 1
        sTok = tok.Token(i)
        Err.Clear
        sPath = GetFileDir(sTok)
        sBase = GetFileBaseExt(sTok)
        If Err = 0 Then
            sNew = ReadIniFile("ReplaceObj", s