This CB code is from " HENRIK "over at the machYahoo site. It should do as you need. The is also another version in the MACH Tool Box on this site.
Option Explicit
Dim Response As Integer
Dim Path As String
Dim ToolNumber As Integer
Dim ToolDiameter As Double
Dim ToolLength As Double
Dim ToolDescription As String
Dim i As Integer
Path = GetMainFolder & "myTools.txt"
Open Path For Output As #1
Print #1, "Mach3 Tooltable printout" & Date() & " " & Time(Now)
Print #1, ""
Print #1, "Tool:" & Chr(9) & "Diam:" & Chr(9) & "Length:" & Chr(9) & "Description:"
For ToolNumber = 1 To 250
ToolDiameter = GetToolParam(ToolNumber, 1)
ToolLength = GetToolParam(ToolNumber, 2)
ToolDescription = GetToolDesc(ToolNumber)
Print #1, ToolNumber & Chr(9) & ToolDiameter & Chr(9) & ToolLength & Chr(9) & ToolDescription
Next
Response = MsgBox("Your file is at the following location: " & Path, 0)
Close #1
END