How about this code in VB7 / 64 bit version?