Para ello lo mejor que puedes hacer, es no guardar el archivo en modo secuencial, sino hacerlo en modo Ramdom (acceso aleatorio).
Open "C:\archivo.txt" For Random As #1 Len = Len(REG)
Este modo guarda en el fichero registros, todos ellos de la misma longitud, y cuando accedas al registro deseado.
Dim CadNombre as String
CadNombre= "Nombre=" & nombreusuario
Put # NÚMERO_ARCHIVO, NÚMERO_REG, CadNombre