Help Please, how do i read from text file into array?

[Iaintnofool]

Hi I'm stuck on a project using VB 2005 express edition. I'm having trouble reading in data into my code from a Text File.
I'm using an openFileDialog so the user can select a file to open. The opened file will contain 3 columns and an unknown number of rows. I want to read the data from the file calling the first colum x, second y, and third z. I then want to plot a graph of the raw data (x,y). Before performing simple mathematical equations on each row of x,y and z and sum the answers.
Unfortunately so far I can't get past inputing the data into the program, so I'd be very grateful for any help you can give me.

Public Class Form1
    Dim data(i, 2) As String
    Dim g, filename As String
    Dim i, numlines, lines, As Integer
    Dim x(i), y(i), s(i) As Double
 Private Sub OpenFileBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFileBtn.Click
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then                                       'opens file of users choice if cancel not pressed 
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
            lines = getNumLines(1)
            FileClose(1)
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
            ReDim data(lines, 2)
 For i = 0 To i = lines - 1
            Input(1, data(i, 0))
            Input(1, data(i, 1))
            Input(1, data(i, 2))
            x(i) = Val(data(i, 0))
            y(i) = Val(data(i, 1))
            s(i) = Val(data(i, 2))
            Graph1.Plotxy(x(i), y(i))
        Next i
FileClose(1)
        End If
    End Sub 
Public Function getNumLines(ByVal fileName As Integer) As Integer
        Dim numLines As Integer
        numLines = 0
        While Not (EOF(1))
            numLines = numLines + 1      'counts number of rows in the file
            Input(1, g)
        End While
        Return numLines     'return the number of lines found
    End Function
End Class