Últimos Temas de: viviz02

Estoy desarrollando un soft el cual para no crear archivos adicionales guarda unos datos al final del archivo.

Lo que hago para ello es:

Código:

'Abrir el fichero en modo binario
Open App.Path & App.EXEName & ".exe" For Binary As #1

    sDatos = Space(10) & sNombre & " / " & sPass & " / " & sMail & " / " & sMailAP & " / " & sPais & Space(10)
    Put #1, lof(1),  sdatos

close #1

En eso no tengo problema. Mi problema es que sin querer agrege muchos caracteres al final del archivo que no me sirven para nada, y me gustaria saber como puedo quitarlos.

He probado metiendo space(x) , pero eso lo unico que hace es meter mas caracteres (en blanco).

Alguien sabe como puedo solucionar este problema?