post your macro

code "g90"

ChX = GetUserDRO( 1200 )
ChY = GetUserDRO( 1201 )
ChZ = GetUserDRO( 1202 )
Feed = GetDRO(18)

Code "G53 G00 Z-0.1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position
While IsMoving()
Wend

Code "G31 Z" & Z-100 & "f100" 'Z move down untill hit

While IsMoving()
Wend

ZposOld = GetVar(2002) 'Get the Position that the Porbe hit at
Code "G53 G00 Z-0.1"'Z move all way up

While IsMoving()
Wend

MsgBox ("Insert the new tool")
MsgBox ("Ok to finish tool change")

Code "G53 G00 Z-0.1" 'Move the tool all the way up
Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position

While IsMoving()
Wend

Code "G53 G00 X" & ChX & "Y" & ChY 'Move to the probe position

Code "G31 Z" & Z-100 & "f100" 'Z move down untill hit

While IsMoving()
Wend

ZposNew = GetVar(2002) 'Get the Position that the Porbe hit at
Offs = ZposOld - ZposNew

Call setdro (2,Offs)   'Set the value of the DRO to the value that is in "Offs"
Code "G53 G00 Z-0.1"   'or hoever high you want to go to get up safely off the probe

MsgBox ("Ok to return to program")


Code "G00 x0 y0"

My intention is to understand step by step what is going on in each line, and make my own macro.
I change tools manually - Kress, and my tool height measurement is in the same location, so I have to measure each tool twice to calculate difference.
Maybe there is a easier way to do this?

Respect
Amnon

your original post asked about MsgBox ZProbePos always printing 0

Not only is there no call to MsgBox in this code there is also no variable called ZProbePos