Как осуществить запись пути который указывается через FolderBrowserDialog в .ini файл

Dim GamePath As String
        Dim SoursPath As String
        Dim FolderBrowserDialog1 As New FolderBrowserDialog()
        Dim Path As String
        SoursPath = My.Computer.FileSystem.CurrentDirectory
        FolderBrowserDialog1.Description = "Укажите путь к папке содержащей .exe файл"
        If My.Computer.FileSystem.FileExists("conf.ini") Then
            Path = My.Computer.FileSystem.ReadAllText("conf.ini")
            If Path = Nothing Then
                MsgBox("Файл конфигурации пуст")
                GoTo 6
            End If
            'MsgBox("Есть")
        Else
            MsgBox("утерян или поврежден файл конфигурации")
            My.Computer.FileSystem.WriteAllText("conf.ini", GamePath, False)
6:          If FolderBrowserDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                My.Computer.FileSystem.CurrentDirectory = FolderBrowserDialog1.SelectedPath
                If My.Computer.FileSystem.FileExists("1.exe") Or My.Computer.FileSystem.FileExists("2.exe") Or My.Computer.FileSystem.FileExists("3.exe") Then
                    Me.Show()
                    GamePath = FolderBrowserDialog1.SelectedPath
                    My.Computer.FileSystem.CurrentDirectory = SoursPath
                    My.Computer.FileSystem.WriteAllText("conf.ini", GamePath, False)
                    MsgBox("Конфигурация успешно обновлена")
                    Path = My.Computer.FileSystem.ReadAllText("conf.ini")
                    Application.Restart()
                Else
                    MsgBox("Указан неверный путь", MsgBoxStyle.Information)
                    GoTo 6
                End If
            End If
        End If

    'Инициализация АПИ
    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 FileN As String = System.IO.Directory.GetCurrentDirectory & "\test3.ini"
    'WS - запись, RS - чтение
    Public Sub WS(ByVal Section As String, ByVal Obj As String, ByVal Param As String)
        Call WritePrivateProfileString(Section, Param, Obj, FileN)
    End Sub
    Public Function RS(ByVal Section As String, ByVal Param As String, ByVal Non As String) As String
        If System.IO.File.Exists(FileN) = False Then
            RS = Non
            Exit Function
        End If
        Dim rc As String = Strings.StrDup(255, vbNullChar)
        Dim x As Integer
        x = GetPrivateProfileString(Section, Param, Non, rc, 255, FileN)
        If x <> 0 Then rc = Strings.Left(rc, x)
        RS = rc
    End Function
 
    'пример использования
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'запись(секция, значение, имя переменной в ini)
        WS("INFO", Me.Top, "TOP")
        WS("INFO", Me.Left, "LEFT")
        WS("INFO", Me.Width, "WIDTH")
        WS("INFO", Me.Height, "HEIGHT")
        WS("OTHER", "User", "MyLogin")
        WS("OTHER", "123456", "MyPassword")
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        'чтение(секция, имя переменной в ini, значение по умолчанию если перем. в ini отсутствует)
        Me.Top = RS("INFO", "TOP", "400")
        Me.Left = RS("INFO", "LEFT", "200")
        Me.Width = RS("INFO", "WIDTH", "300")
        Me.Height = RS("INFO", "HEIGHT", "300")
        MsgBox("Hello, " & RS("OTHER", "MyLogin", "x"))
        MsgBox("Your password is " & RS("OTHER", "MyPassword", "1"))
    End Sub

x = RS("INFO", "TOP", "отсутствует")
If x = "отсутствует" Then MsgBox("переменная TOP в секции INFO отсутствует")