Csv *Resolved*

[GingerNut]

Hey guys, need a little help here. I'm writing a small prog that reads a text file and outputs the necessary data to a csv file. I got it to sort of work:

Dim NumberofTemps As Integer
Dim TempDate As String
Dim Temperature As Integer
Dim TempNumber As Integer
Open cdlFiles.FileName For Input As #1
Open App.Path + "\temp.csv" For Output As #2
Input #1, NumberofTemps
For TempNumber = 1 To NumberofTemps
    Input #1, TempDate, Temperature
    Write #2, TempNumber, Temperature
Next TempNumber
Close 1
Close 2

Each text file can have up to 31 lines like the following:
01/08/02 HighTemp = ,19
It then outputs to the csv file:
1,19

But I can only get it to do the first line.