Sub Main()

Dim ConfirmReady As String
Dim XaxisDRO As Integer
Dim YaxisDRO As Integer
Dim ZaxisDRO As Integer
XaxisDRO=800
YaxisDRO=801
ZaxisDRO=802

MsgBox( "Auto Zeroing X..." )
SetOEMDRO(XaxisDRO, 0.0000)
Sleep 1000
MsgBox "The X-Axis DRO reads " & GetOEMDRO(XaxisDRO)
SetOEMDRO(XaxisDRO, 1.0000)
Sleep 1000
MsgBox "The X-Axis DRO reads " & GetOEMDRO(XaxisDRO)
SetOEMDRO(XaxisDRO, 2.0000)
Sleep 1000
MsgBox "The X-Axis DRO reads " & GetOEMDRO(XaxisDRO)
SetOEMDRO(XaxisDRO, 3.0000)
Sleep 1000
MsgBox "The X-Axis DRO reads " & GetOEMDRO(XaxisDRO)
SetOEMDRO(XaxisDRO, 4.0000)
Sleep 1000
MsgBox "The X-Axis DRO reads " & GetOEMDRO(XaxisDRO)
SetOEMDRO(XaxisDRO, 5.0000)
Sleep 1000
MsgBox "The X-Axis DRO reads " & GetOEMDRO(XaxisDRO)
Sleep 1000

End Sub