'Загрузить текстовой файл в TextBox

Dim FN As Integer
Dim FName As String

FN = FreeFile
FName = "C:\tmp\index.txt" 
Open FName For Input As #FN
 Text1.Text = Input(LOF(FN), #FN)
Close #FN

'Сохранить текстовой файл из TextBox'а

Dim FN As Integer
Dim FName As String

FN = FreeFile
FName = "C:\tmp\index.txt" 
Open FName For Output As #FN
 Print #FN, Text1.Text
Close #FN