Try this little bit of code. It should count up on the A axis from 0 to 10. This works here, could you please try it?
Dim tstart As Long
Dim elapsed As Integer
tstart = Timer
Do
elapsed = Timer - tstart
SetOEMDRO(803, elapsed)
Sleep(250)
Loop While elapsed < 10
If this works but you can't get your script to work, please post your code. Must be something minor.