In the following module, the strings are read into an array. But, the Input
statement terminates the string as soon as it encounters a comma instead of
reaching upto CRLF. Accordingly, the number of strings is more than actual
number of lines. Why?

j = 1
Do While Not EOF(1)
Input #1, A$
intStrLen = Len(A$)
For i = 1 To intStrLen
arrIn(j) = Left(A$, 1)
j = j + 1
A$ = Right(A$, Len(A$) - 1)
Next i
arrIn(j) = vbCr
arrIn(j + 1) = vbLf
j = j + 2
Loop
intLen = j