The trick is two fold. Have to add

sub New {
return new packagename;
}
[download]

Set obj = CreateObject("My.ZipObject")
Set objr = obj.New

Set rc = objr.zipAFile("type.txt","Type.zip")
[download]

or

my $r = Win32::OLE->new('My.ZipObject');
print "\nZip DLL error code " . Win32::OLE->LastError();

my $oo = $r->new;
my $exitcode = $oo->zipAFile("type.txt","Type.zip");
[download]