Añadir datos en un txt

[erbuson]

Si tienes un TextBox con varias lineas, imagino que se trata de un MultiLinea por lo que deberías hacer es pasar su contenido a una matriz y después grabar linea a linea esta matriz añadiendo lo que quieras.

supongo que tambien podrías hacer "una chapuza" pero que obviamente debe funcionar.

En los TextBox las multilineas están separadas entre si por vbCrLf por lo que podrías al grabar hacer un replace por ejemplo

Print #1, Replace(TextBox.Text, vbCrLf, " RT 5 " & vbCrLf)

De hecho, si hicieras con un command por ejemplo

TextBox.Text = Replace(TextBox.Text, vbCrLf, " RT 5 " & vbCrLf) deberías ver el cambio enseguida en el TextBox