VB.NET ローカルファイルからCSVを読み込んでDataGridViewに表示させたい

前提

VB.NET全くのド素人の者です。初めて質問させていただきます。

現在BMIの計算アプリを作っていまして、その計算結果などをdatagridviewに表示させ、保存ボタンを押すことでcsv形式でローカルに名前を付けて保存することができるようにしました。

教えていただきたいこと

そこで今度は逆に読み込みボタンを押してローカルに保存してあるcsvファイルを選択し、datagridviewに表示させる機能を付けたいのですが、どこのサイトを見てもやり方を見つけることが出来ませんでした。具体的なコードなどを教えていただけると幸いです。

追記
http://bbs.wankuma.com/index.cgi?mode=al2&namber=90559
時間がなかったため、こちらのサイトでも同時並行で同じアプリの質問をしていました。

Public Class Form1
    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
       Me.Close()  
  End Sub
    Private Sub btnBMI_Click(sender As Object, e As EventArgs) Handles btnBMI.Click

       Dim Height As Double = txtHeight.Text
        Dim Weight As Double = txtWeight.Text
        Dim Name As String = txtName.Text

       Dim BMI As Double
        If Height > 0 AndAlso Weight > 0 Then
            lblerror.Text = ""           BMI = Weight / ((Height / 100) * (Height / 100))
            txtBMI.Text = BMI.ToString("0.0")``` '有効数字以下は四捨五入される  

'肥満度判定  
If txtBMI.Text >= 25 Then  
lblHimando.Text = "肥満"           ElseIf txtBMI.Text < 25 AndAlso txtBMI.Text >= 18.5 Then  
lblHimando.Text = "普通"  
ElseIf txtBMI.Text < 18.5 Then  
lblHimando.Text = "痩せ"  
End If  

'肥満度によって文字の色を変更  
If lblHimando.Text = "肥満" Then  
lblHimando.ForeColor = Color.Red        ElseIf lblHimando.Text = "痩せ" Then  
lblHimando.ForeColor = Color.Blue  
End If  
'0以下が入力された時にエラーメッセージを表示  
Else            lblerror.Text = "正しい値を入力してください"  
lblHimando.Text = ""  
End If  
End Sub  
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick  

End Sub  
Private Sub btnTouroku_Click(sender As Object, e As EventArgs) Handles btnTouroku.Click  
If txtBMI.Text = "" Then  
lblerror.Text = "計算してください"  
Else  
Dim idx As Integer = DataGridView1.Rows.Add()            DataGridView1.Rows(idx).Cells(0).Value = idx  
DataGridView1.Rows(idx).Cells(1).Value = txtName.Text  
DataGridView1.Rows(idx).Cells(2).Value = txtHeight.Text  
DataGridView1.Rows(idx).Cells(3).Value = txtWeight.Text  
DataGridView1.Rows(idx).Cells(4).Value = txtBMI.Text  




End If  
End Sub  

Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged  

End Sub  

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  

End Sub  
Private Sub Button2_Click(ByVal sender As System.Object,  
ByVal e As System.EventArgs) Handles Button2.Click  

CsvFileSave("BMIﾃﾞｰﾀ.csv")  
End Sub  
Dim FileName As String  
Public Property OpenFileDialog1 As Object  

Private Sub CsvFileSave(ByVal SaveFileName As String)  

' 「名前を付けて保存」ダイアログを使う方法  
Using sfd As New SaveFileDialog  
sfd.FileName = "BMIﾃﾞｰﾀ.csv"  
sfd.Filter = "CSV(*.csv)|*.csv"  
sfd.CheckPathExists = True  
sfd.OverwritePrompt = True  
If sfd.ShowDialog() <> Windows.Forms.DialogResult.OK Then  
Exit Sub  
End If  
FileName = sfd.FileName  
End Using  
CsvFileSave(FileName)  
End Sub