Im reading a text file, line by line i want to change a few lines of the entire file, and then write it back to the file with my new data, in parts of it, but the text file contains "," 's and it for some reason causes it break the line

this is the file, it should be on one line

reading it brings it in as

this is the file
it should be on one line

the comma isnt read,

im using the input statement

Dim path As String
Dim dat, rec As String
path = localdir + name
Open path For Input As #1

Dim c, w As String
Dim i As Integer
Dim line As Integer

Do While Not EOF(1)
line = line + 1
Input #1, dat
Debug.Print dat
Do While i < Len(dat)
i = i + 1
c = Mid(dat, i, 1)
w = Mid(dat, i, 5)
Loop
i = 0
Loop

Close #1