Sub Main()

XPos = GetUserDRO(1200)
YPos = GetUserDRO(1201)
ZPos = GetUserDRO(1202)

Tool = GetSelectedTool()
CurrentTool = GetCurrentTool() 


mystring = ""


If Tool = CurrentTool Then
SetCurrentTool(Tool)

Exit Sub
Else


'Code("M5")
'Code("M9")


If XPos < 9999 Then
Code("G53 G0 X" & XPos)
End If

While IsMoving()
Sleep 50
Wend

If ZPos < 9999 Then
mystring = "Z" & ZPos
End If

If YPos < 9999 Then
mystring = mystring & "Y" & YPos
End If

If mystring = "" Then
'Nothing
Else
Code ("G53 G0" & mystring)
End If

SetCurrentTool(Tool)

Code("G43 H" & Tool)

End If 
End Sub
Main