hoa buenas compañeros bueno tngo una pequeña duda
de como escribir en una archivo de texto en la misma linea osea
tengo un Textbox en mi programa y necesito q cada vez q escriba un caracter abra un arhivo de texto y lo escriba en el archivo de texto!
pero es problema es q siempre q abro el archivo de texto me escribe en la siguiente linea porq utilizo print
nose si me podrian dar una idea amigos 

este es mi codigo:

Dim Str As String
 
 
 
Sub Escribir()
Open App.Path & "\archivo.txt" For Append As #1
Print #1, Str
Str = ""
Close #1
End Sub
 
Private Sub Text1_Change()
Str = Right(Text1.Text, 1)
Escribir
End Sub
 

Tu problema es que estas usando Append, eso guarda el texto abajo del texto que ya hay en el file.
Si el archivo tiene: pepe, y vos le guardas cicklow, el file nuevo tendra pepecicklow

No uses append, usa otro metodo.

buenas creo poder aver solucionado el problemas
black zero no t pude entender pana lo que me explicast
pero al menos dejo una solucion bueno mi idea es abrir el archivo txt y guardar la informacion en una variable y concatenarla con el nuevo caracter y luego escribir la cadena concatenada al archivo

dim ff as long
dim archivo as string, contenido as string
 
archivo="c:\eltxt.txt"
 
'Asi sacas el contenido del archivo
ff=freefile
open archivo for binary as ff
contenido=space$(lof(ff))
get ff,,contenido
close ff
 
'Asi juntas el contenido mas la nueva informacion
contenido = contenido & " " & nuevaInfo 'Un espacion para que no quede junto :D

'Asi guardas la "nueva" informacion
ff=freefile
open archivo for binary as ff
put ff,,contenido
close ff
 
 

Salud!