Para que el texto no se pierda, lo puedes guardar en un archivo plano (.txt, .ini... e incluso en una base de datos).
Como podrás comprobar Visual Basic tiene recursos para casi todo. En este ejemplo vamos a guardar lo escrito en el Form en un archivo .txt que después podrás recuperar:
Código:
Dim s As String ' Variable a nivel de módulo
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim texto As String
texto = Chr(KeyAscii)
' si el texto llega al margen derecho del form, nueva línea
If Me.CurrentX >= Me.ScaleWidth - 90 Then Me.Print Chr(13)
Me.Print texto;
' cargamos lo tecleado en la variable "s"
s = s & texto
End Sub
Private Sub Form_Unload(Cancel As Integer)
' si no existe Prueba.txt, lo crea y si existe lo sobreescribe
Open App.Path & "\Prueba.txt" For Output As #1
Print #1, s
Close #1
End Sub
Espero que te sirva.
Un saludo.
Edicción: No lo entiendo, cuando entré en el post no había ninguna respuesta a la última de triump (14:25:29) y ahora han salido unas cuantas. Siento si lo repetí.