Сохранение текущего содержимого формы

My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\filename.txt", ComboBox1.Text, False)

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\filename.txt"
        Dim objWriter As New System.IO.StreamWriter(path)
        For Each ctr As Object In Me.GroupBox1.Controls
            objWriter.Write(ctr.Text & vbNewLine)
        Next
        objWriter.Close()
    End Sub
End Class

Dim сохранить As New SaveFileDialog ' Создаем новый элемент "диалог сохранения"
        сохранить.Filter = "Файлы .txt|*.txt" ' Фильтр для сохранения(.txt)
        If сохранить.ShowDialog = DialogResult.Cancel Then Exit Sub ' Обезопасим себя от ошибки, если мы не нажали на ок, то диалог закроется.
        Dim запись As New System.IO.StreamWriter(сохранить.FileName) ' Реазилзует запись символов в файл
        запись.WriteLine(TextBox1.Text & vbNewLine & TextBox2.Text) ' Записываем в файл текст
        запись.WriteLine(" ")
        запись.WriteLine("")
        запись.Close() ' Закрываем файл
        MsgBox("Сохранился в - " & сохранить.FileName, , "Запись текста в текстовый файл") ' Показываем сообщение куда сохранился файл