Сохранение настроек в .ini в папке Windows\System32

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(CustomSettings.SettingsPath)
        CustomSettings.Save()
    End Sub
End Class
 
MustInherit Class CustomSettings
    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
 
    Public Shared SettingsPath As String = Environment.CurrentDirectory + "\SaveTest.ini"
 
    Private Shared i As Integer = 123
 
    Public Shared Sub Save()
        Wright("Section", "i", i)
 
    End Sub
    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

Module Module1
 
    Sub Main()
        Dim Path As String = My.Application.Info.DirectoryPath.ToString
        System.IO.File.WriteAllText(Path & "\new_file.ini", "My Test")
    End Sub
 
End Module

        Dim s As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData, _
                                            Environment.SpecialFolderOption.DoNotVerify)