Leer archivo txt

Dim rd As New System.IO.StreamReader(rutaArchivo)
            Dim linea As String = rd.ReadLine()
            While linea IsNot Nothing
                'Código aquí...
                linea = rd.ReadLine()
            End While
            rd.Close()