Как сохранять настройки в .ini файл?

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
____________________________________
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call WritePrivateProfileString("INFO", TextBox2.Text, TextBox1.Text, "C:\test.ini")
    End Sub
____________________________________
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "Введите Ваше имя"
        Button1.Text = "Сохранить"
        Button2.Text = "Загрузить"
    End Sub
____________________________________
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rc As String = Strings.StrDup(255, vbNullChar)
        Dim x As Integer
        x = GetPrivateProfileString("INFO", TextBox2.Text, "", rc, 255, "C:\test.ini")
        If x <> 0 Then rc = Strings.Left(rc, x)
        TextBox1.Text = rc
    End Sub

Public Class Ini
 
Public Ini As New Collection
 
Public Shared Function GetFromFile(ByVal Filename As String) As Ini
  Try
    Dim IniFile As IO.StreamReader = New IO.StreamReader(Filename, True)
    Dim Str As String, Section As String, Item As String, Value As String, SepPos As Integer
    Dim Res As New Ini
 
    Str = "[]"
    Do
      If Str <> "" And Not Str.StartsWith(";") Then
        If Str.StartsWith("[") And Str.EndsWith("]") Then
          Section = Str.Substring(1, Str.Length - 2).Trim().ToLower()
          If Not Res.Ini.Contains(Section) Then Res.Ini.Add(New Collection, Section)
        Else
          SepPos = Str.IndexOf("="c)
          Item = Str.Substring(0, SepPos).Trim().ToLower()
          Value = Str.Substring(SepPos + 1).Trim()
          If Res.Ini(Section).Contains(Item) Then Res.Ini(Section).Remove(Item)
          Res.Ini(Section).Add(Value, Item)
        End If
      End If
      Try
        Str = IniFile.ReadLine().Trim()
      Catch
        Exit Do
      End Try
    Loop 'Until IniFile.EndOfStream()
    IniFile.Close()
    Return Res
  Catch
    Return Nothing
  End Try
End Function
 
Public Function FindValue(ByVal Section As String, ByVal Item As String, Optional ByVal [Default] As Object = Nothing) As Object
  Try
    Return Ini(Section.ToLower)(Item.ToLower)
  Catch
    Return [Default]
  End Try
End Function
 
End Class

Private Ini As New Dictionary(Of String, Dictionary(Of String, String))