Считать/записать информацию в файл (Самый простой и доступный вариант)

Dim a As New StreamWriter("c:\a.txt") 'вторая перегрузка указывает перезапись в файл(False) или дозапись(True)
a.WriteLine("Текст для записи")
a.Dispose() : a.Close()

Dim a As New StreamReader("c:\a.txt")
Dim t As String = a.ReadLine()
a.Dispose() : a.Close()

Dim a As New StreamReader("c:\a.txt")

а.Close

a.Dispose

а.Close

My.Computer.FileSystem.WriteAllText("C:\Program Files\Учитель\Данные\Файл.txt", TextBox1.Text True)

TextBox1.Text = My.Computer.FileSystem.ReadAllText("C:\Program Files\Учитель\Данные\Файл.txt", System.Text.Encoding.Default)

Function load_file(ByVal path As String) As Integer
        Dim a As New StreamReader(path)
        Dim t As String = a.ReadLine()
        a.Dispose() : a.Close()
        Return name
    End Function

Imports System
Imports System.IO

New IO.StreamReader(path)

 Function AllLine_OneArr(ByVal path As String) As String
        Dim a As New IO.StreamReader(path)
        Dim i As Integer = 0 'используем собственный счетчик в место For
        Dim t() As String
        While a.Peek <> -1 'читаем пока не достигнем конца файла
            t(i) &= a.ReadLine()
            i += 1
        End While
        a.Dispose() : a.Close()
        'Return t()     'как возвращать массив я хз, буду благодарен если кто подскажет))
    End Function

  Function AllLine_OneStr(ByVal path As String) As String
        Dim a As New IO.StreamReader(path)
        Dim t As String = ""
        While a.Peek <> -1 'читаем пока не достигнем конца файла
            t &= a.ReadLine()
        End While
        a.Dispose() : a.Close()
        Return t
    End Function