'Macro #VARS version will poll VARS up To 20000 


textFilePath = "C:\mach3\GcodeVars.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(textFilePath)
Num=1

Do Until num=20000

Vars=  GetVar(num)
DROs= GetOemDro(100)&num
objTextFile.WriteLine("Var# " &num &"  VarValue " & Vars &" OemDro# " & num & " " &DRos & Chr(13) & Chr(10))
num=num+1

Loop
objTextFile.Close
'Dim sCOMMAND As String
 'sCOMMAND="print c:\mach3\toolinfo.txt"
 'Shell("c:\winnt2\system32\cmd.exe /c" & sCOMMAND)
 MsgBox("End Of Routine")
End