Because it is the literal translation of your VB code to Perl.

Also see Win32::OLE for the various access methods it implements to make OLE objects appear as native Perl objects.