¿Usas un RichTextBox ó un TextBox multilineal?.
Si es con el Rich el codigo es:
Código:
RichTextBox1.SaveFile ruta_del_archivo, rtfText
Si es con un text multilineal la cosa se complica un poco, pero el codigo es este:
Código:
Dim nFich As Integer
Dim Cont As Integer
Dim cDato As String
On Error GoTo error1
nFich = FreeFile
Open ruta_del_archivo_txt For Binary As #nFich
Seek #nFich, 1
cDato = String(1, " ")
For Cont = 1 To Len(ActiveForm.Text1.Text)
cDato = Mid(ActiveForm.Text1.Text, Cont, 1)
Put #nFich, Cont, cDato
Next
error1:
Select Case Err.Number
Case 91
Resume Next
End Select
Espero te sirva
Saludos
