Sub Main
Dim TNum, TDesc, TDia, THei
Open "c:\Mach3\ToolsXTG.csv" For Input As #1

Do While Not EOF(1)
TDesc=""
'Msg = TDesc
'MsgBox Msg, 64, "Description"
Input #1 , TNum, TDesc, TDia, THei ',TWearD, TWearL
num=Val(TNum)

If TNum>=254 Then

Msg = "Tool Number " & TNum & " is Greater Than 253."
Msg = Msg & " You can't have more than 253 Tools"
MsgBox Msg, 64, "To Many Tools"
Close #1
End

Else

'Msg = Tnum & " / " & TDesc & " / " & TDia & " / " & THei
'MsgBox Msg, 64, "Input?"
SetToolDesc(num,TDesc)
SetToolParam(num,1,TDia)
SetToolParam(num,2,THei)
'SetToolParam(num,3)=TWearD
'Set ToolParam(num,4)=TWearL

End If

Loop

Msg = Tnum & " / " & TDesc & " / " & TDia & " / " & THei
MsgBox Msg, 64, "This was your Last Entry"

Close #1
End Sub