Сохранение текста в файл, используя диалог сохранения

Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SaveFileDialog1.Filter = "Текстовые файлы (*.txt)|*.txt"
        SaveFileDialog1.ShowDialog()
        Dim Запись As New StreamWriter(SaveFileDialog1.FileName)
        Запись.WriteLine()
        Запись.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "HTML файлы|*.html; *.htm|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        Dim Чтение As New StreamReader(OpenFileDialog1.FileName)
        Dim Строка As String
        Dim Число2 As Integer
        Dim Число As Double
        'Считываем 2 строки из файла:
        Строка = Чтение.ReadLine
        Число = Чтение.ReadLine
        Число2 = Чтение.ReadLine
        Чтение.Close()
 
    End Sub
End Class

 Запись.WriteLine()

        Строка = Чтение.ReadLine
        Число = Чтение.ReadLine
        Число2 = Чтение.ReadLine

TextBox1.Text = Строка & vbCrLf & Число & vbCrLf & Число2