Запуск процесса из .txt файла

Process.Start(Путь)

Process.Start(Application.StartUpPath & "\Path.txt")

        Dim Path As String = IO.File.ReadAllText(Application.StartupPath & "\Path.txt")
        Process.Start(Path)

If Process.Start("D:\Path.txt") Then
MsgBox("Ок")
Else
Me.Close()

Try
'Запускаем процесс
Catch ex As Exception
'Что-то пошло не так
End Try

        Dim A = Process.GetProcessesByName(IO.File.ReadAllText("D:\Path.txt"))
        If A.Length <> 0 Then
            MsgBox("S")
        End If

        Dim Path As String = Replace(Split(IO.File.ReadAllText("D:\Path.txt"), "\")(Split(IO.File.ReadAllText("D:\Path.txt"), "\").Length - 1), ".exe", "") 'Название процесса.
        Dim Proces = Process.GetProcessesByName(Path).Length
        If Proces <> 0 Then
            MsgBox("S")
        End If

    Dim A As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        If FolderBrowserDialog1.SelectedPath <> vbNullString Then
            A = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If A <> vbNullString Then
            Shell("cmd /Q /C start " & A)
        End If
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        If FolderBrowserDialog1.SelectedPath <> vbNullString Then
            A = FolderBrowserDialog1.SelectedPath
        End If
        Dim qwerty As New IO.StreamWriter("D:\Desktop\qwerty.txt")
        qwerty.Write(A)
        qwerty.Close()
    End Sub

Dim A = Process.GetProcessesByName(IO.File.ReadAllText("D:\Path.txt"))
If A.Length <> 0 Then ' Если длинна А не равна нулю, то ...
MsgBox("S")
End If