You don't need that first new clsInvoice for starters.
Second, you're masking that variable (clsInvoice Invoice) with string Invoice.
Without seeing your erorr I cannot be sure, but I'm guessing the line the program fails is
Invoice = Invoices.AllInvoices[Index].Invoice
and you get some kind of type mismatch error.
Just a guess...but if it is correct one, please accept this solution.
If it is not, update the question with more details.