Ouvrir un fichier txt avec le bloc note et remplacer guillemets

Sub ElimineGuillemets()
' Choix, lecture et écriture d'un fichier binaire.
Dim nomComplet As String          'nom complet du fichier
Dim nomFichier As String          'nomFichier sélectionné
Dim str As String                 'texte original du fichier
Dim txt As String                 'texte à écrire dans le fichier

  nomComplet = Application.GetOpenFilename("Fichier texte (*.txt),*.txt")
  If nomComplet = "" Then Exit Sub
  nomFichier = Split(nomComplet, "\")(UBound(Split(nomComplet, "\")))
  str = LireTexte(nomComplet)
  If str <> "" Then
    txt = Replace(str, Chr(34), "")
    If EstEcritTexte(txt, nomComplet) Then
      MsgBox "Remplacement des guillemets effectué dans " & nomFichier
    Else
      MsgBox "Echec à l'écriture de " & nomFichier
    End If
  End If

End Sub
Private Function LireTexte(ByVal nomCompletFichier As String) As String
' Lecture  d'un fichier binaire sous forme de texte (caractères ASCII).
Dim n°F As Integer                'numéro du fichier

  On Error Resume Next
  If Dir(nomCompletFichier) = "" Then Exit Function
  n°F = FreeFile
  Open nomCompletFichier For Binary Access Read As #n°F
  LireTexte = Space$(LOF(n°F))
  Get #n°F, , LireTexte
  Close #n°F
  On Error GoTo 0

End Function
Private Function EstEcritTexte(texteASCII As String, nomCompletFichier As String) As Boolean
' Effectivité de l'écriture d'un fichier binaire sous forme de texte (caractères ASCII).
Dim n°F As Integer                'numéro du fichier

  On Error Resume Next
  If Dir(nomCompletFichier) <> "" Then Kill nomCompletFichier
  n°F = FreeFile
  Open nomCompletFichier For Binary Access Write As #n°F
  Put #n°F, , texteASCII
  EstEcritTexte = True
  Close #n°F
  On Error GoTo 0

End Function