Функция OpenFileDialog путает пути к файлам

Option Explicit On 
Imports System
Imports Microsoft.Win32
Imports System.IO
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Imports System.Diagnostics
 
Public Class frmMain
 
'Присваиваем сроковой переменной путь к текстовому файлу. Сам путь находится в директории с главным exe'шником программы.
Dim path31 As String = "Resources\Text\Sound2.txt"
    
Dim strFileAlarm As String
 
Private Sub btnOpenFileAlarm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
btnOpenFileAlarm.Click
        
    'Кнопка для выбора пути файла (btnOpenFileAlarm).
 
    'Выбираем файл, через диалоговое окно.
        OpenFileDialog1.ShowDialog()
       
    'Присваиваем переменной путь выбранного файла.
        strFileAlarm = OpenFileDialog1.FileName
 
    'Выводим на экран путь файла.
    TextBox1.text = strFileAlarm 
 
    End Sub
 
 Private Sub btnRec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
btnRec.Click
 
    'Кнопка записи в файл Sound2.txt, расположенный в каталоге с программой (btnRec).
        
    'Задаём переменной значение из текстбокса.
    strFileAlarm = TextBox1.text
 
    'Здесь возникает ошибка, потому что программа суммирует пути файлов.
        Dim sw3 As New StreamWriter(path31, False, System.Text.Encoding.GetEncoding(1251))
       
    'Пишем в первую строчку текстового файла, то что находиться под переменной strFileAlarm.
        sw3.Write(strFileAlarm)
 
    'Закрываем
        sw3.Flush()
        sw3.Close()
 
    End Sub
 
End Class

Dim path31 As String

 Application.StartupPath

Dim path31 As String =Application.StartupPath & "\Resources\Text\Sound2.txt"

Dim path31 As String = Application.StartupPath & "\Resources\Text\Sound2.txt"

MsgBox(Application.StartupPath)
        MsgBox(IO.Directory.GetCurrentDirectory)
        MsgBox(AppDomain.CurrentDomain.BaseDirectory)
        MsgBox(My.Application.Info.DirectoryPath)