Mostrar texto plano en un datagridview

En este capitulo les enseñare como mostrar un archivo de texto plano en un datagridview.
Primero debemos tener nuestro archivo con el sig. formato:



procedemos con el diseño de nuestra ventanita debe quedar como se muestra continuacion

Luego importamos el siguiente namespace el cual nos permitira abrir el archivo

Imports System.IO

Colocamos el siguiente codigo en nuestro boton examinar

Private Sub btnExaminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExaminar.Click
        With OpenFileDialog1
            .Title = "Seleccione el archivo"
            .Filter = "Archivos txt (*.txt)|*.txt|Todos los Archivos (*.*)|*.*"
        End With
        If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

Lo que hace este fragmento de codigo es lo siguiente:
 Ponerle el titulo al cuadro de dialogo que se va abrir
Filtrar el tipo de archivo que queremos que nos muestre en este caso es  *.txt
Por ultimo abre el cuadro de dialogo cuando el usuario haga clic en el boton aceptar al cuadro de texto le asigna el nombre y la ruta del archivo.




Poner el siguiente codigo en el boton Cargar
En esta parte es donde se abre el archivo y se carga su contenido en el datagridView

Private Sub btncargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncargar.Click        Try

            If (TextBox1.Text <> String.Empty) Then
                Dim leer As New StreamReader(TextBox1.Text)
                Dim texto As String = ""
                Dim count As Integer = 3
                Dim split As String() = Nothing
                While (Not texto Is Nothing)
                    texto = leer.ReadLine()
                    If (Not texto Is Nothing) Then
                        split = texto.Split(New Char() {",", ":", ";"}, count)
                        DataGridView1.Rows.Add(split(0), split(1), split(2))
                    End If
                End While

            Else
                MsgBox("Seleccione el archivo a cargar", MsgBoxStyle.Exclamation, "Error")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Resultado

Les dejo el codigo completo

Imports System.IO
Public Class Form1

    Private Sub btnExaminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExaminar.Click
        With OpenFileDialog1
            .Title = "Seleccione el archivo"
            .Filter = "Archivos txt (*.txt)|*.txt|Todos los Archivos (*.*)|*.*"
        End With
        If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub

        Private Sub btncargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncargar.Click        Try

            If (TextBox1.Text <> String.Empty) Then
                Dim leer As New StreamReader(TextBox1.Text)
                Dim texto As String = ""
                Dim count As Integer = 3
                Dim split As String() = Nothing
                While (Not texto Is Nothing)
                    texto = leer.ReadLine()
                    If (Not texto Is Nothing) Then
                        split = texto.Split(New Char() {",", ":", ";"}, count)
                        DataGridView1.Rows.Add(split(0), split(1), split(2))
                    End If
                End While

            Else
                MsgBox("Seleccione el archivo a cargar", MsgBoxStyle.Exclamation, "Error")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Saludos