There are a lot of simularities with VB6.
Have you tried just running the VBA code as is and seeing what errors crop
up and correcting them?
I have no idea if that will work at all but it's what I would try first.
Also, If it works in VBA why go to VB?