اگه برنامتون نیاز به save کردن متن داره و یا لازمه که کاربر فایل متنی یا محتوای هر فایلی رو ببینه می تونین از دو Sub زیر استفاده کنین.خیلی راحته فقط به مثال توجه کنین.حواستون باشه که آرگومان ورودی متن نیست و خود نام TextBox مورد نظره.....


Sub LoadText(Lst As TextBox, file As String)
On Error GoTo error
Dim mystr As String
Open file For Input As #1
Do While Not EOF(1)
            Line Input #1, a$
            texto$ = texto$ + a$ + Chr$(13) + Chr$(10)
        Loop
        Lst = texto$
Close #1
Exit Sub
error:
X = MsgBox("File Not Found", vbOKOnly, "Error")
End Sub






Sub SaveText(Lst As TextBox, file As String)
On Error GoTo error
Dim mystr As String
Open file For Output As #1
Print #1, Lst
Close 1
Exit Sub
error:
X = MsgBox("There has been a error!", vbOKOnly, "Error")
End Sub




نمونه :


Call LoadText (Text1,"C:\Windows\System\Saved.txt")


محتوای فایل مسیر داده شده را درون text1 میریزد.


Call SaveText (Text1,"C:\Windows\System\Saved.txt")


محتوای text1 را در فایل مسیر داده شده ذخیره می کند.