How do I make this work in vb.net?

[dajunka]

I am trying to read/write a simple text file in net 2008 but can't, as yet, get it to work.
Any help would be appreciated.
This is how I use to do it in VB6

MyStr = App.Path & "\Data\Data.txt"

Open MtyStr For Input As #1
Do While Not EOF(1)
Input #1, Num(a, 0), Num(a, 1), Num(a, 2), Num(a, 3), Num(a, 4), Num(a, 5), Num(a, 6)

 a = a + 1
 
Loop
Close #1