Why? Because you aren't using Input correctly.

Use

Line Input #FileNum, A$

HTH,
Bernie
MS Excel MVP


"V Govindan" wrote in message
...
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