Hogyan kell Visual Basicben string tömbbe beolvasni txt-ből?

Akit komolyan érdekel ez a 2014es emelt info érettségi

Ezzel nem olvassa be:

Module Module1

Sub Main()

Dim ip(500) As String

Dim x As Integer = 1

FileOpen(1, "ip.txt", OpenMode.Input)

While Not EOF(1)

ip(x) = LineInput(1)

x = x + 1

'-------kiirás---------'

Console.WriteLine(x & " " & ip(x))

End While

FileClose(1)

Console.ReadLine()

End Sub

End Module