Guardar datos de un Tetxbox

[David]

Iniciado por Maggots8

Hola, necesito saber como se hace para guardar los datos ingresados en un textbox. es decir, ejecuto el programa, escribo "HOLA" en un textbox, lo cierro, y quiero que cuando lo abra aparezca ese "HOLA".

Si alguien sabe hacerlo me seria de increible ayuda , muchas gracias.

Puedes guardarlo en un archivo de texto:

Código:

 
Private Sub Form_Load()
On Error Resume Next
Dim GetData As String
Close
'Abrimos el archivo File.txt y leemos la primera línea
Open AppPath & "File.txt" For Input As #1
Line Input #1, GetData
Close
'Colocamos el contenido del archivo en Text1
Text1.Text = GetData
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close
'Guardamos el contenido de Text1 en File.txt
Open AppPath & "File.txt" For Output As #1
Print #1, Text1.Text
Close
End Sub
'Obtenemos la ruta del programa
Function AppPath() As String
ChDir App.Path
ChDrive App.Path
AppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
End Function