Как написать .ini Формат из Flexgrid в VB6

Question

Что я хочу: сделать кнопку, которая экспортирует выбранные данные в этом FelxGrid в формат файла .ini, принимает (высоты) в качестве раздела, а остальные в качестве значений и ключей, это не обязательно должен быть формат ini, это также может быть что-то близкое к нему

Что я пробовал до сих пор

Private Sub commandbutton_1()

Dim configfile As String
Dim myArray() As String 'i tried using arry but it didn't work 

configfile = "C:\" & "\CONFIGMEEE!.INI"


PutINISetting "", "", SettingsGrid.Clip, configfile


MsgBox "Exported.", vbInformation, "Settings"

SettingsGrid.SaveGrid configfile, flexFileTabText

Что случилось потом данные, которые мы экспортировали, но не отформатировали вообще как ini и записали так:

Важно знать

Flexgrid, который я использую, является vsflexgrid, а не msflexgrid

И я также использую это как MOUDLE

'API Function to write information to the INI File

Private Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName As String) As Long

'Get the INI Setting from the File
Public Function GetINISetting(ByVal sHeading As String, _
    ByVal sKey As String, _
    sINIFileName) As String

    Const cparmLen = 50
    Dim sReturn As String * cparmLen
    Dim sDefault As String * cparmLen
    Dim lLength As Long
    lLength = GetPrivateProfileString(sHeading, _
            sKey, _
            sDefault, _
            sReturn, _
            cparmLen, _
            sINIFileName)

    GetINISetting = Mid(sReturn, 1, lLength)
End Function

'Save INI Setting in the File
Public Function PutINISetting(ByVal sHeading As String, _
    ByVal sKey As String, _
    ByVal sSetting As String, _
    sINIFileName) As Boolean

    Const cparmLen = 50
    Dim sReturn As String * cparmLen
    Dim sDefault As String * cparmLen
    Dim aLength As Long
    aLength = WritePrivateProfileString(sHeading, _
        sKey, _
        sSetting, _
        sINIFileName)

    PutINISetting = True
End Function