Afficher dans une TextBox suite a un "Parcourir"

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        OpenFileDialog1.Title = "Choisissez un fichier"
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then TextBox1.Text = a
        If a <> "" Then My.Computer.Clipboard.SetText(a)
    End Sub

With OpenFileDialog1
.Title = "Ouvrir" 'Titre de la barre de titre
.InitialDirectory = "c:\" 'répertoire de départ
.Filter = "Fichiers exe|*.exe" ' on travaille uniquement sur les .txt
.Multiselect = False 'sélectionner 1 seul fichier
.CheckFileExists = True 'Message si nom de fichier qui n'existe pas.
'Permet d'ouvrir uniquement un fichier qui existe; CheckPathExists peut aussi être utilisé.
.ValidateNames = True 'n'accepte que les noms valides (win 32)
.AddExtension = True 'ajoute une extension au nom s'il n'y en a pas
 If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
      TextBox1.Text = .OpenFile()
           End If
End With

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim startInfo As ProcessStartInfo = New ProcessStartInfo("C:\Users\AppData\Local\FiveM\FiveM.exe")
    startInfo.WindowStyle = ProcessWindowStyle.Normal
    startInfo.Arguments = "+connect 000.000.00.00:00000"
    Process.Start(startInfo)
End Sub