Visual Basic.NET - abrir un fichero de texto

hola!! gracias por adelantado.
Mi problema es que tengo que abrir y leer un fichero de texto, he conseguido que al darle al menú de abrir me salga el cuadro para examinar las carpetas y localizar el archivo, pero no puedo abrirlo!! cómo lo hago?? tb tengo que leerlo

saludos, Ana

Imports System
Imports System.IO
Imports System.Collections

Module Module1

Sub Main()
Dim objReader As New StreamReader("c:\test.txt")
Dim sLine As String = ""
Dim arrText As New ArrayList()

Do
sLine = objReader.ReadLine()
If Not sLine Is NothingThen
arrText.Add(sLine)
End If
Loop Until sLine Is Nothing
objReader.Close()

For Each sLine In arrText
Console.WriteLine(sLine)
Next
Console.ReadLine()
End Sub

End Module

http://support.microsoft.com/kb/302309/es

Muchas gracias, el código es muy bueno, pero ahora me surge otro problema, aqui hay que pasarle la ruta en el código, pero la ruta no es siempre la misma...

este es el código que he utilizado para examinar las carpetas y llegar hasta el archivo que necesito:

Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Archivos de texto (*.txt)|*.txt"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' Aquí va el código para abrir el archivo y leerlo
End If