Запись текстового файла

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Try
            Dim Writer As New IO.StreamWriter(FileName, True)
            Dim a As DialogResult = MessageBox.Show("Сохранить в этот же файл?", Me.Text, MessageBoxButtons.YesNo)
            If a = DialogResult.Yes Then
                Writer.Write(TextBox1.Text)
            Else
                FileName = InputBox("Введите полный путь для сохранения файла, например, C:\text.txt")
                
            End If
 
            Writer.Close()
        Catch exс As Exception
            MessageBox.Show(exс.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
        End Try
 
    End Sub

FileName = InputBox("Введите полный путь для сохранения файла, например, C:\text.txt")

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim Writer As New IO.StreamWriter(FileName, True)
            Dim a As DialogResult = MessageBox.Show("Сохранить в этот же файл?", Me.Text, MessageBoxButtons.YesNo)
            If a = DialogResult.Yes Then
                Writer.Write(TextBox1.Text)
            Else
                FileName = InputBox("Введите полный путь для сохранения файла, например, C:\text.txt")  
if   FileName <> "" then
Writer.Write(FileName)
end if    
            End If
            Writer.Close()
        Catch exс As Exception
            MessageBox.Show(exс.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

dim writer as new io.streamwriter(filename, true)

dim filename as string = "c:\9.txt"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim a As DialogResult = MessageBox.Show("Сохранить в этот же файл?", Me.Text, MessageBoxButtons.YesNo)
            If a = DialogResult.no Then
                FileName = InputBox("Введите полный путь для сохранения файла, например, C:\text.txt")  
if   FileName = "" then msgbox("не введён путь",16)
 
exit sub
end if    
            End If
  Dim Writer As New IO.StreamWriter(FileName, True)
Writer.Write("текст для записи")
Writer.Close()
        Catch exс As Exception
          msgbox("ошибка: " & exc.message,16)
        End Try
    End Sub