Visual Basic .NET Leer un fichero de texto

Tenemos que leer un fichero.

.CONFIG
En el fichero .config de la aplicación tenemos una indicación de dónde está el fichero. Lo indicamos así:

add key="pathFicheroPumadata" value="c:\programa-gestion\pumapc\pumadata.dat"

Primero leemos la entrada, luego comprobamos si el fichero está en su sitio. Si no está, se captura la excepción y se muestra el mensaje correspondiente al usuario.

Se lee el fichero procesando cada línea.

Private Sub mnuLeerFichero_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuLeerFichero.Click
    Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader
    Dim ficheroPumadata As String
    Dim contador As Integer = 0
    ficheroPumadata = configurationAppSettings.GetValue("pathFicheroPumadata", GetType(System.String))
    If ficheroPumadata = "" Then
        ficheroPumadata = Application.StartupPath
    End If
    Try
        If System.IO.File.Exists(ficheroPumadata) = False Then
            MessageBox.Show("El fichero pumadata.dat no está en su sitio.")
            Exit Sub
        End If
        strPATH_BASEDATOS = ficheroPumadata
        'Abrir el fichero de texto:
        Dim sr As New System.IO.StreamReader( _
                ficheroPumadata, _
                System.Text.Encoding.Default, _
                True)
        ' Leer el contenido mientras no se llegue al final
        While sr.Peek() <> -1
            ' Leer una línea del fichero
            Dim s As String = sr.ReadLine()
            If String.IsNullOrEmpty(s) Then
                Continue While
            End If
            contador = contador + 1
            escribirLinea(s)
        End While
        ' Cerrar el fichero
        sr.Close()
        MessageBox.Show(contador & " repostajes leídos")
    Catch ex As Exception
        MessageBox.Show("ERROR: " & ex.Message & vbCrLf & "El fichero pumadata.data no está en su sitio")
        Exit Sub
    End Try
End Sub

Saludos.