Visual Basic - Maldita txt box

Hola a todos se que algunop me direis que busque por hay... pues bien he buscado en casi tdos los buscadores, en la web ect. Bueno al grano he hecho un txt box que conserva el texto pues bien me carga el texto perfectamente pero al cerrar la aplicacion NO LO GUARDA y e provado nosecuantomil codigos, os dejo el codigo para que le hecheis un vistazo, porfavor ayudame gracias por adelantado

Private Sub Form_Load()
dialogs.FileName = App.Path & "/txt.txt"
Open dialogs.FileName For Input As #1
Line Input #1, temp
Text5.Text = Text5.Text + vbCrLf & temp
Close
DoEvents

End Sub



Private Sub Form_terminate()
Open App.Path & "/txt.txt" For Output As #1
Print #1, Text5.Text
Close #1
End Sub

Saludos y feliz 2008

Hola muchas gracias , lo solucione de otra forma pero tambien finciona el tullo, GRACIAS