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

Num=5221

Do Until num=10320

Num=Num+1

N = GetVar(num)



Dt= Date()
Tm= Time()

If N <>"0" Then

objTextFile.WriteLine("Parameter# "& num &"  * "& N  & Chr(13) & Chr(10))
Else
End If
Loop

objTextFile.WriteLine("**")
objTextFile.WriteLine("  Date: " &Dt &" Time: " &Tm)

objTextFile.Close
Dim sCOMMAND As String
 sCOMMAND="print c:\mach3\FixOffsetInfo.txt"
 Shell("c:\winnt2\system32\cmd.exe /c" & sCOMMAND)
End