OpenFileDialog et Textbox en VBA

Bonjour,

J'essaye de remplir une Textbox avec un bouton qui fait appel à OpenFileDialog, Textbox que j'aimerai par la suite pouvoir modifier. Voici le code que j'ai tapé en VBA:

Pour le bouton :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.ShowDialog()
End Sub

Pour la textbox :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.Text = OpenFileDialog1.FileName.ToString
End Sub

Je rencontre deux problèmes :
1/ Après avoir sélectionné mon fichier avec OpenFileDialog, la textbox reste vide, il faut que je l'a sélectionne et que je tape sur une touche pour qu'elle m'affiche le chemin du fichier
2/ Je ne peux pas modifier ce chemin

Merci pour vos réponses.