Criar pacote DTS no VB

estou referenciando Microsoft DTSPackage Object Library. Só que quando executo, está informando que a variável está bloqueadou não está setada.

Só que está. vejam

Private PackageOld              As New DTS.Package

Private Package                 As DTS.Package2

Set Package = PackageOld