-2
type 'Microsoft.Office.Interop.Excel.Application'. Are you Missing an Assembly Reference? 
 FileCopy("\\Thulller\Sistema\ModeloAbertaFechada.xls", "\\Thulller\Sistema\Financeiro\" + txtNomeDoc.Text + ".xls")
            Dim xlApp As Excel.Application
            Dim xlWorkBook As Excel.Workbook
            Dim xlWorkSheet As Excel.Worksheet
            xlApp = New Excel.Application
            xlWorkBook = xlApp.Workbooks.Open("\\Thulller\Sistema\Financeiro\" + txtNomeDoc.Text + ".xls")
            xlWorkSheet = xlWorkBook.Worksheets("Plan1")

William welcome to stackoverflow in English , make a Tour and translate your question so that it can be analyzed.
– Marco Souza
William do what Marconcílio said, otherwise it will be negative several times and this is not good!
– jmfrolim