OK
I have re-written parts of it and run it in simulation and it works now.
There was a syntax error with an unterminated If statement and a couple of other little glitches.
(I have taken out the G53 move before the toolchange, you will need to have the lathe carriages in a safe position before the change, use G28 or similar until you are happy with what you are doing and can reinstate it if you wish)
Rename it M6Start.m1s and install it in your profile macro folder.
Run it from MDI not VB window
If it does not work I need to know exactly the message on the error message line, not a paraphrase of it.
It works perfectly in my simulated set up. I can see the axes change value as I select different tools based on my tool table offsets.
regards
ArcEye