'Macro Parameter Value Info
textFilePath = "C:\mach3\ParamValueInfo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(textFilePath)
Dt= Date()
Tm= Time()
objTextFile.WriteLine("ParamValueInfo")
objTextFile.WriteLine("  Date: " &Dt &" Time: " &Tm)
Num=0
Do Until num=10320
num=num+1
N = GetVar(num)
If N <>"0" Then
objTextFile.WriteLine("Parameter# "& num &"  * "& N  & Chr(13) & Chr(10))
Else
End If
Loop
objTextFile.Close
Dim sCOMMAND As String
 sCOMMAND="print c:\mach3\ParamValueInfo.txt"
 Shell("c:\winnt2\system32\cmd.exe /c" & sCOMMAND)
End