I have a problem with this type of code

Public Sub ExportAllArchive()

Dim VarPercentage As Variable


Set VarPercentage = thisProject.Variables.Item("VarAuxPercentage") ...