[VBA] Lier et ecrire dans un fichier texte

Bonjour

voilà j'ai un petit problème avec VBA :

je dois réussir à ouvrir un fichier .txt en lecture ET ecriture,
lire le contenu ligne par ligne et lorsque je rencontre une valeur X dans une ligne, la remplacer par Y

J'ai tenté d'ouvrir mon fichier avec :

Open mon_fichier For Append Access Read Write As #num_du_fichier

mais lorsque je fais une boucle pour lire jusqu'à à la fin du fichier :

Do While Not EOF(num_du_fichier)

EOF est toujours vrai...

et si je tente l'ouverture du fichier avec :

Open mon_fichier For Binary Access Read Write As #num_du_fichier

C'est lors de l'ecriture dans le fichier avec

Print #num_du_fichier, ma_valeur_Y

que j'ai une erreur...

Quelqu'un pourrait-il donc me dire comment faire ce que j'ai décrit ci-dessus ??

Merci