Выдать запрос на сохранение текста в файл, если TextBox не пуст

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
Dim Result As DialogResult
'переменные с текстом под кнопки, капшен и месседж
 
        Result = MessageBox.Show(Message, Caption, Buttons)
 
 If DialogResult.Yes Then
       ....'дальше не знаю
 
if TextBox.Text.Length = 0 Then
Me.Close()
 
if TextBox.Text.Length > 0 Then
If Not Directory.Exists(Application.StartupPath + "\Отчет\") Then
Directory.CreateDirectory(Application.StartupPath + "\Отчет\")
...
 
        Dim fw As StreamWriter
        Dim ReadString As String
 
        Try
           
            fw = New StreamWriter(Application.StartupPath + "\Отчет\" + "1.txt", True)
            ReadString = TextBox.Text
            fw.WriteLine(ReadString)
        
Finally
          
            fw.Close()
        End Try
    End Sub
Me.Close()

If Result = DialogResult.Yes Then
    'сохранение в txt
End If

Sub SaveLogDialog()
        Dim theResult As DialogResult = MessageBox.Show("Сохранить лог?", "Нет", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If Windows.Forms.DialogResult.Yes Then
            My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Лог\", TextBox1.Text, True)
            Close()
        ElseIf Windows.Forms.DialogResult.No Then
            Close()
            Return
        End If
    End Sub

Sub SaveLogDialog()
        Dim theResult As DialogResult = MessageBox.Show("Сохранить лог?", "Нет", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If theResult = DialogResult.Yes Then
            My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\Лог\", txtLog.Text, True)
            Close()
        ElseIf Windows.Forms.DialogResult.No Then
            Close()
            Return
        End If
    End Sub

ElseIf theResult = Windows.Forms.DialogResult.No Then

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
        SaveLogDialog()
    End Sub

Application.StartupPath + "\Лог\"

Application.StartupPath + "\Лог\Лог.txt"

if TextBox.Text.Length > 0 Then

        If txtLog.Text.Length > 0 Then
            SaveLogDialog()
        End If