130 simple file reading


Private Sub Command1_Click()

Open "NUMBERS.TXT" For Input As #1

Dim myNumbers() As Integer

countLines = 0
Do While Not EOF(1)
' count input lines
Input #1, x
countLines = countLines + 1
Loop
Close #1

ReDim myNumbers(1 To countLines)
Open "NUMBERS.TXT" For Input As #1
For i = 1 To countLines
Input #1, myNumbers(i)
Next i

For i = 1 To countLines
Debug.Print myNumbers(i)
Next i

End Sub