Lire & remplacer mots ds un fichier txt ds VB

Public Function FileInMemory(ByVal stFilePath As String) As String

'Variable locale
    Dim hFile As Integer

'Gestion des erreurs
    On Error GoTo InBinary

'Initialisation
    hFile = FreeFile

'Ouverture du fichier
    Open stFilePath For Input As hFile
        FileInMemory = Input(LOF(hFile), hFile) 'Ne prend pas les caractères binaires
    Close hFile
    Exit Function

'Si problème avec des caractères binaires...
InBinary:
    Close hFile
    hFile = FreeFile

'Ouverture du fichier
    Open stFilePath For Binary As hFile
        FileInMemory = Input(LOF(hFile), hFile) 'Accepte les caractères binaires
    Close hFile

End Function

Public Function MemoryInFile(ByVal stFilePath As String, ByVal stData As String) As Boolean

'Variable locale
    Dim hFile As Integer

'Initialisation
    hFile = FreeFile
    MemoryInFile = False

'Gestion des erreurs
    On Error GoTo fin

'Ouverture du fichier
    Open stFilePath For Output As hFile
        Print #hFile, stData
    Close hFile

'true si Ok
    MemoryInFile = True

fin:
End Function

Dim str As String
Dim a As Boolean

str = FileInMemory("C:\...\tonfichier.txt")

str = Replace(str, "chemin a remplacer", "text1.text")

a = MemoryInFile("C:\...\tonfichier.txt", str)