text box saving

[QWERTY]

or you can use RichTextControl instead and use FileName and SaveFile properties:

Option Explicit

Private Sub Form_Load()
    RichTextBox1.FileName = "C:\windows\desktop\text.txt"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    RichTextBox1.SaveFile "C:\windows\desktop\text.txt", rtfText
End Sub