I want to get data from a file? how to put data in line 2 to a textbox, data in line 3 to a textbox and continue..........

i using code below but come an error "type mismatch" and ReDim Preserve MyArray(i) was highlighted.

Dim temp As String, MyArray As Variant
Open "filename.txt" For Input As #1
While Not EOF(1)
ReDim Preserve MyArray(i)
Line Input #1, MyArray(i)
i = i + 1
Wend
Close