ملف ini بدون Sections

السلام عليكم ورحمة الله وبركاتة

ارجو ان يسع صدركم لي من كثر طلب الاسئلة .

لدي ملف ini لاتوجد بة Sections ولكن بة Keys مع value

كيف يمكن التعامل معة مثل ملف ini العادي مع الـ Sections

حيث اني اريد التعديل والحذف والاضافة علي قيم المفاتيح

وان كان لاتوجد طريقة لهذا الملف فكيف يمكن تحويل الكود التالي الي " دالة " حتي توفر كتابتها في كل مرة عند ادراج مفتاح من الملف

Dim Fnum As Integer
Dim pos As Integer

    Fnum = FreeFile

    Open ini For Input As Fnum

    Do While Not EOF(Fnum)
        Line Input #Fnum, Section

        If Left$(Section, 1) = "[" Then
            SectionName = Mid$(Section, 2, Len(Section) - 2)
        End If
    Loop
    Close Fnum

او هذا الكود

Dim Fnum As Integer
Dim pos As Integer

    Fnum = FreeFile
    Open ini For Input As Fnum

    Do While Not EOF(Fnum)
        Line Input #Fnum, skey

        If InStr(skey, "=") > 0 Then
            pos = InStr(skey, "=")
           skey= Left$(skey, pos - 1)
        End If
    Loop
    Close Fnum

ولكم جزيل الشكر