'Make sure you import "Imports System.IO"

   Dim openFileDialog1 As OpenFileDialog
   If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
      Dim myfilestream As New StreamReader(OpenFileDialog1.FileName)
      Dim myline As String

      Do While Not (myfilestream.EndOfStream)
         myline = myfilestream.ReadLine()
      Loop
      myfilestream.Close()

   End If