Hola,un ejemplo de como guardar los datos de un textbox al cerrar el programa y recuperarlo al abrirlo de nuevo:
Código:
Private Sub Form_Load()
On Error GoTo cancelar
Dim archivo As String
Dim cadena As String
Text1.Text = ""
archivo = App.Path & "\texto.txt"
Open archivo For Input As #1
While Not EOF(1)
Line Input #1, cadena
Text1.Text = Text1.Text + cadena + vbCrLf
Wend
Close #1
cancelar:
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error GoTo cancelar
Dim archivo As String
archivo = App.Path & "\texto.txt"
Open archivo For Output As #1
Print #1, Text1.Text + vbCrLf
Close #1
cancelar:
End Sub
saludos.