HOLA!!!
Podes leer de a buffers de por ejemplo 1Kb ver si esta tu frase y guardar con append en el archivo, luego reescribis el buffer con el proximo segmento del archivo y asi.
GRACIAS POR LEER!!!
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