Non sarà che devo modificare questa parte?

Dim ContenutoFile As String