Réponse acceptée !
Visiblement ton code est bien écris.
Vérifie que ce ne soit pas ta condition précédent l'écriture
If txtPcode.Text <> ""And txtCoordY.Text <> ""And txtCoordX.Text <> ""Then
qui n'empèche pas l'écriture
Fait un test sans cette condition
***********Lecture du fichier texte après Écriture***************************
Je ne vois pas d'ouverture de fichier, je ne pense pas que tu puisses confirmer la sauvegarde.
De plus cette partie est en dehors de ta boucle Try
Le savoir ne sert que si il est partagé par tous