Excel VBA to read delimited text file

Hi All,

I need to read a delimited text file in the following format.
03/30/2007,11:14:16,56.1,1000,abcdefgh,abc

I try this but this but having error at line input

Sub open_read()

Dim i, Filenum As Integer
Dim var1 as Date
Dim var2 as String
Dim var3 as Double
Dim var4 as Long
Dim var5 as String
Dim var6 as String

Dim current_path As String

current_path = ThisWorkbook.Path
Filenum = FreeFile
current_path = current_path & "\testcase.csv"

Open current_path For Input As #Filenum

For i = 1 To 1000
Line Input #Filenum, var1, var2, var3, var4, var5, var6
tick_array(0, 1, 2, 3, 4) = Split(tick, ",")
Sheets("Sheet1").Range("A1").Offset(i, 0) = var1
Sheets("Sheet1").Range("A1").Offset(i, 1) = var2
Sheets("Sheet1").Range("A1").Offset(i, 2) = var3
Sheets("Sheet1").Range("A1").Offset(i, 3) = var4
Sheets("Sheet1").Range("A1").Offset(i, 4) = var5
Next i

Close Filenum

End Sub

Thanks in advance for your.