Supongamos que tengo un archivo con el siguiente contenido:

COMO
YO ESCRIBO ESTO
EN UN ARCHIVO

Ahora lo que quiero hacer es buscar y reemplazar ESCRIBO por REESCRIBO y que el archivo quede guardado con el cambio hecho

NOTA:
ES IMPRESCINDIBLE NO CARGAR TODO EL CONTENIDO DEL ARCHIVO EN MEMORIA

Gracias a todos los que puedan aportar algún tipo de ayuda

El problema es que este es el único metodo para leer un archivo que tengo y es por lineas

Public Function FileRead(ByVal FullPathFile As String) As String
Dim intArch As Integer
Dim strText As String

intArch = FreeFile

Open FullPathFile For Input As #intArch
Do While Not EOF(intArch)
   Line Input #intArch, strText
   strText = strText & vbCrLf
   FileRead = FileRead & strText
Loop
End Function

Asi que si el archivo es muy grande, consume muchos recursos y al salvar con append, este escribe al final del archivo, por lo cual no puedo escribir algo que esta en el medio a menos que salve todo desde donde se hizo la modificación hasta el final y volveria a caer en el alto consumo de recursos.

Saludos y Gracias por la ayuda

Una idea es ir leyendo linera por linea e incrementando un contador de bytes.

Luego, a la hora de reemplazar, usar Seek para posicionarse en el file y escribir directamente...

Habría que abrir el file 2 veces, 1 como Binary (para el seek) y el otro como Input (para los Line Input), ambos en modo shared.

Aunque no sé si cómo se comportará el abierto como Input, si el contenido del file va cambiando...

Es cuestión de probar.

Saludos!