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

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

No, no es en vb.net, el código que busco es en vb6. Gracias de antemano, perdonenme la demora y espero que me ayuden.

Esto no me solusiona el problema, pruebalo para que veas. Una vez compilada la aplicación le damos click derecho/Ejecutar como.../(otro usuario que no sea el nuestro) y veras que sale el usuario que abrió la aplicación, no el abierto actualmente en windows, que es lo que estoy buscando

Necesito obtener el nombre del usuario abierto en windows, pero hay que aclarar algo que he encontrado en muchos sitios y es que la API GetUserName Lib "advapi32.dll" no lo hace, lo que ahce esta API es que obtiene el nombre de usuario que abre la aplición y no necesariamente siempre es el mismo usuario que está abierto en windows, que es el que queremos obtener.

Por favor F1 F1 F1
Gracias de antemano