'Четене от текстов файл
Dim strFileName As String
Dim intFileNumber As Integer
strFileName = "C:\test.txt" 'Или каквото и да било друго разширение
inFileNumber = FreeFile
Open strFileName For Input As #intFileNumber
Text1.Text = Input$(LOF(intFileNumber), intFileNumber)
Close #intFileNumber

'Писане в тектов файл
Dim strFileName As String
Dim intFileNumber As String
strFileName = "C:\test.txt" 'Или каквото и да било друго разширение
intFileNumber = FreeFile
Open strFileName For Output As #intFileNumber
Print #intFileNumber, Text1.Text
Close #intFileNumber

'Добавяне в текстов файл
Dim strFileName As String
Dim intFileNumber As String
strFileName = "C:\test.txt" 'Или каквото и да било друго разширение
intFileNumber = FreeFile
Open strFileName For Append As #intFileNumber
Print #intFileNumber, Text1.Text
Close #intFileNumber

'Четене и писане с двоични файлове
Dim strFileName As String
Dim intFileNumber As String
strFileName = "C:\test.txt" 'Или каквото и да било друго разширение
intFileNumber = FreeFile
Open strFileName For Binary As #intFileNumber 'Четене
Get #intFileNumber, 1, Text1.Text
Close #intFileNumber

Dim strFileName As String
Dim intFileNumber As String
strFileName = "C:\test.txt" 'Или каквото и да било друго разширение
intFileNumber = FreeFile
Open strFileName For Binary As #intFileNumber 'Писане
Put #intFileNumber, 1, Text1.Text
Close #intFileNumber