VB.Net Copier un Fichier et le Lire

Salut à tous....
J'ai fais un Post sur le forum sur ce sujet mais ca devait être un peu trop abstrait...

J'ai un code pour faire une copie d'un fichier...
J'ai un fichier texte Original que je suis capable de lire sans problème, avec un OpenFileDialog.
Je fais une modification de ce fichier et je le copie dana sun fichier porant le même nom que l'original. Bref j'écrase le fichier texte oiriginal et je le remplace par le fichier modifier. Le code fonctionne bien car je vais par l'exploreur voir le fichier modifier et tout est OK. Le fichier texte est transformé.

Le problème est que je suis incapable de lire le nouveau fichier créé.
J'aimerais savoir pourquoi mon fichier modifié Is Nothing ???

Je vous annexe une procédure et deux fonctions.
J'ai mis en gras et souligné la partie ou ca rentre dans la condition ou mon fichier Is Nothing.

Je ne trouve vraiment pas la solution..

Merci de votre aide

---

Function Remplacement_Fichier()
Try
IO.File.Delete(FichierSave) 'Suppression du fichier
IO.File.Copy(AppPathTempo & "\Tempo.txt", FichierSave, False) 'Copie du temporaire sur le fichier de
sauvegarde
IO.File.Delete(AppPathTempo & "\Tempo.txt") 'Suppression du fichier de sauvegarde
Catch ex As IOException
   MsgBox("Erreur dans le remplacement du fichier de sauvegarde:" & ex.Message)
EndTry
EndFunction

---

Function OuvrirFichier()
Dim OpenFileDialog1 AsNew OpenFileDialog()
OpenFileDialog1.InitialDirectory = "\SD Card\Calcul\"
OpenFileDialog1.Filter = "All files (*.*)|*.*|txt files (*.txt)|*.txt"
OpenFileDialog1.FilterIndex = 2
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
   Array.Clear(TableauLigne, 0, CompteurLigne) 'Vider Tableau et remet le Compteur à 0 pour recréer un nouveau tableau
   Array.Clear(Tableau, 0, Compteur)
   CompteurLigne = 0
   Compteur = 0
   TraitementFichier(OpenFileDialog1.FileName) 'Création du Tableau et Lecture du fichier texte
EndIf
EndFunction

---

Private

Sub TraitementFichier(ByVal NomDuFichier AsString)

Dim ObjetFichier As StreamReader = New StreamReader(NomDuFichier)
Dim Message AsString

FichierSave = NomDuFichier
Try
Do
   FichierTexte = ObjetFichier.ReadLine()

   If Compteur = 0 And FichierTexte IsNothingThen
      MsgBox("Problème")
      GoTo Fin
   ElseIf FichierTexte = ""Then

   Else
      If Compteur = 0 Then
         ReDim Tableau(Compteur)
      Else
         ReDimPreserve Tableau(Compteur)
      EndIf
      Compteur = Compteur + 1
   EndIf
LoopUntil FichierTexte IsNothing

ObjetFichier.Close()
Compteur = Compteur - 1
SaveFile = OpenFileDialog1.FileName
Catch exc As Exception
MsgBox("Fichier inexistant")
EndTry
Fin:
EndSub