Созданный установщик не открывает тхт файл

 '
myPath = "C:\Test\test_1.txt"
 
    If IO.File.Exists(myPath) Then
       Exit Sub
  Else
     
      Dim dt As Date = Today   'data 
      dt = dt.AddDays(-1)
      Dim txtData As String = CStr(dt)
 
      Dim Tok_1 As String = InputBox("TOK 1")
      Dim Tok_2 As String = InputBox("TOK 2")
 
      Dim BobjWriter As New System.IO.StreamWriter((myPath), True)  '
      BobjWriter.Write(txtData + " *  " + Tok_1)
      BobjWriter.Write(vbCrLf)
      BobjWriter.Write(txtData + "  * " + Tok_2)
      BobjWriter.Write(vbCrLf)
      BobjWriter.Close()
  End If
' чтение
 Dim lines() As String = IO.File.ReadAllLines(myPath)
  Dim myStringS As String  
 If Len(lines(lines.Length - 1)) = 0 Then 
     myStringS = lines(lines.Length - 2)  
 Else
     myStringS = lines(lines.Length - 1)
 End If
 
 Textbox1.text = myStringS

   Dim Folder As String = My.Computer.FileSystem.GetParentPath(myPath)
            My.Computer.FileSystem.CreateDirectory(Folder) 'Создать папку для сохранение файла

myPath = "C:\Test\test_1.txt"
 
    If IO.File.Exists(myPath) Then
       Exit Sub
       
    Else
     
      Dim dt As Date = Today   'data 
      dt = dt.AddDays(-1)
      Dim txtData As String = CStr(dt)
 
      Dim Tok_1 As String = InputBox("TOK 1")
      Dim Tok_2 As String = InputBox("TOK 2")
 
      Dim BobjWriter As New List(Of String)
      BobjWriter.Add(txtData + " *  " + Tok_1)
      BobjWriter.Add(vbCrLf)
      BobjWriter.Add(txtData + "  * " + Tok_2)
      BobjWriter.Add(vbCrLf)
      IO.File.WriteAllLines(myPath, BobjWriter.ToArray)
  End If
  
' чтение
 Dim lines() As String = IO.File.ReadAllLines(myPath)
  Dim myStringS As String  
 If Len(lines(lines.Length - 1)) = 0 Then 
     myStringS = lines(lines.Length - 2)  
 Else
     myStringS = lines(lines.Length - 1)
 End If
 
 Textbox1.text = myStringS

myPath = IO.Path.Combine(Application.StartupPath, "Test","test_1.txt")