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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Computer.FileSystem.ReadAllText("C:\файл.ini")
End Sub

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
 
 
 Public Function ReedIni(ByVal Section As String, ByVal Param As String) As String
        Try
            PrintLog("Reed ini...")
            Dim rc As String = Strings.StrDup(255, vbNullChar)
            Dim x As Integer
            x = GetPrivateProfileString(Section, Param, "", rc, 255, My.Application.Info.DirectoryPath & "\Setup.ini")
            If x <> 0 Then rc = Strings.Left(rc, x)
            ReedIni = rc
            PrintLog("Reed ini...ok")
        Catch ex As Exception
            PrintLog("Reed ini...ERROR " & ex.Message)
        End Try
    End Function
    Public Sub WriteIni(ByVal Section As String, ByVal Obj As String, ByVal Param As String)
        Try
            PrintLog("Write ini...")
            Call WritePrivateProfileString(Section, Param, Obj, My.Application.Info.DirectoryPath & "\Setup.ini")
            PrintLog("Write ini...ok")
        Catch ex As Exception
            PrintLog("Write ini...ERROR " & ex.Message)
        End Try
    End Sub

ReedIni("секция", "параметр")

    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
 
    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

.TextBox3.Text = ReedIni("section", "param")

TextBox3.Text = ReedIni("section", "param")

MustInherit Class CustomSettings
    Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal iniSection As String, ByVal iniKey As String, ByVal iniDefault As String, ByVal iniValue As String, ByVal iniBuffer As Integer, ByVal iniFilename As String) As Integer
    Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal iniSection As String, ByVal iniKey As String, ByVal iniValue As String, ByVal iniFilename As String) As Integer
 
    Shared SettingsPath As String = Environment.CurrentDirectory & "\setup.ini"
 
    Private Shared _Text1 As String
    Public Shared Property Text1 As String
        Get
            Return _Text1
        End Get
        Set(ByVal value As String)
            _Text1 = value
        End Set
    End Property
 
    Public Shared Sub Load()
        _Text1 = Read("Section", "Section", "Default")
 
    End Sub
    Public Shared Sub Save()
        Wright("Section", "Section", _Text1)
 
    End Sub
 
    Private Shared Function Read(ByVal iniSection As String, ByVal iniKey As String, ByVal iniDefault As String) As String
        Dim iniBuffer As String = Space(1024)
        Dim iniLength As Integer = GetPrivateProfileString(iniSection, iniKey, iniDefault, iniBuffer, 255, SettingsPath)
        Return iniBuffer.Substring(0, iniLength)
    End Function
    Private Shared Sub Wright(ByVal iniSection As String, ByVal iniKey As String, ByVal iniValue As String)
        WritePrivateProfileString(iniSection, iniKey, iniValue, SettingsPath)
    End Sub
    End Class

Imports System.IO
Imports System.Text
 
Public Class IniReg
Inherits Dictionary(Of String, Dictionary(Of String, String))
 
Default Public Overloads Property Item(Section As String, Key As String, Optional [Default] As String = Nothing) As String
  Get
    Dim SectionDict As Dictionary(Of String, String), Res As String
    Return If(Me.TryGetValue(Section, SectionDict) AndAlso SectionDict.TryGetValue(Key, Res), Res, [Default])
  End Get
  Set(Value As String)
    Dim SectionDict As Dictionary(Of String, String)
    If Not Me.TryGetValue(Section, SectionDict) Then
      SectionDict = New Dictionary(Of String, String)
      Me(Section) = SectionDict
    End If
    SectionDict(Key) = Value
  End Set
End Property
 
Public Shared Function FromFile(Filename As String) As IniReg
  Dim Res As New IniReg, Section As String = "", Line As String, Key As String, Value As New StringBuilder, Q As Integer, I As Integer, Lines() As String
 
  Lines = File.ReadAllLines(Filename)
  For Q = 0 To Lines.Length - 1
    Line = Lines(Q)
    If Line.Length Then
      If Line(0) = ";"c Then
        Res(Section, Line) = Nothing
      ElseIf Line(0) = "[" Then
        Section = Line.Substring(1, Line.Length - 1 + (Line(Line.Length - 1) = "]"c))
        If Not Res.ContainsKey(Section) Then Res.Add(Section, New Dictionary(Of String, String))
      Else
        I = Line.IndexOf("="c)
        If I = -1 Then
          Res(Section, Line) = Nothing
        Else
          Key = Line.Substring(0, I)
          If Line(Line.Length - 1) <> "\"c Then
            Res(Section, Key) = Line.Substring(I + 1)
          Else
            Value.Append(Line.Substring(I + 1))
            Do
              Value.AppendLine()
              Q += 1
              If Q = Lines.Length Then Exit Do
              Line = Lines(Q)
              Value.Append(Line)
            Loop While Line(Line.Length - 1) = "\"c
            Res(Section, Key) = Value.ToString()
            Value.Clear()
          End If
        End If
      End If
    End If
  Next Q
 
  Return Res
End Function
 
Public Sub Save(Filename As String)
  Dim Res As New List(Of String)
 
  If Me.ContainsKey("") Then
    For Each Kkvp As KeyValuePair(Of String, String) In Me("")
      Res.Add(If(Kkvp.Value IsNot Nothing, Kkvp.Key & "=" & Kkvp.Value, Kkvp.Key))
    Next Kkvp
  End If
 
  For Each Skvp As KeyValuePair(Of String, Dictionary(Of String, String)) In Me
    If Skvp.Key.Length Then
      Res.Add("")
      Res.Add("[" + Skvp.Key + "]")
      For Each Kkvp As KeyValuePair(Of String, String) In Skvp.Value
        Res.Add(If(Kkvp.Value IsNot Nothing, Kkvp.Key & "=" & Kkvp.Value, Kkvp.Key))
      Next Kkvp
    End If
  Next Skvp
 
  File.WriteAllLines(Filename, Res.ToArray())
End Sub
 
End Class