I answer my self

If you have machine with same parameters in Y and Z axis then you can do that.
use VB Script SwapAxis( 1,2 ) and after that swap current coordinates (Y and Z) macro 800.m1s attached.
after using remember to ResetAxisSwap() and swap coordinates back.
M218 (Macro to swap axis to simulate xz plane SwapAxis(1,2))
M800
( run your code here )
M800
M217 (Macro to reset axis to back xy plane ResetAxisSwap())
Note! Movements is made XY axis where Y is realy Z and vise versa.
DISCLAIMER: Your own risk!
M800.m1s
REM SwapAxis macro
REM Macro swaps Y and Z axis coordinates
X = GetDRO( 0 )
Y = GetDRO( 1 )
Z = GetDRO( 2 )
XMachine = GetOEMDRO( 83 )
YMachine = GetOEMDRO( 84 )
ZMachine = GetOEMDRO( 85 )
XOffset = GetDRO( 30 )
YOffset = GetDRO( 31 )
ZOffset = GetDRO( 32 )
XG92 = GetOEMDRO( 16 )
YG92 = GetOEMDRO( 17 )
ZG92 = GetOEMDRO( 18 )
XTool = GetOEMDRO( 204 )
ZTool = GetOEMDRO( 32 )
g92valueToY = ( YMachine - YOffset ) - ( ZMachine - ZOffset - ZG92 - ZTool )
g92valueToZ = ( ZMachine - ZOffset - ZTool ) - ( YMachine - YOffset - YG92 )
Code "G92 X" & X & "Y" & g92ValueToY & "Z" & g92valueToZ
REM Wait For data update
sleep(500)
REM Move current To g92
y = ( GetOEMDRO( 84 ) - GetDRO( 31 ) - GetDRO( 1 ) )
z = ( GetOEMDRO( 85 ) - GetDRO( 32 ) - GetOEMDRO( 32 ) - GetDRO( 2 ) )
Code "G92X" & x & "Y" & y & "Z" & z