Запись текста в файл в папке приложения

My.Computer.FileSystem.WriteAllText("\1.txt", TextBox1.Text, True)

My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\1.txt", TextBox1.Text, True)

Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = "Текстовые файлы (*.txt)|*.txt"
        SaveFileDialog.ShowDialog(Me)
 
        Dim FileName As String = SaveFileDialog.FileName
        ' Добавить код для сохранения содержимого формы в файл.

Dim f As New OpenFileDialog
        Dim Файл As String
        f.Filter = "Текстовые файлы|*.txt"
        If f.ShowDialog() = DialogResult.Cancel Then Exit Sub
        Файл = f.FileName
        Файл.EndsWith(".TXT")
        RichTextBox1.Text = ??????

Dim OFD As New OpenFileDialog
        With OFD
            .Filter = "Тухтовые файлы (.txt)|*.txt"
            .Multiselect = False
            .Title = "Выберите файл для открытия в RichTextBox"
        End With
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.RichTextBox1.LoadFile(OFD.FileName, RichTextBoxStreamType.PlainText)
        End If