'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