ion = txtInfo(1)
        .EnumerateCurrentSection sKey(), iCount
        If (iCount &gt; 0) Then
            For i = 1 To iCount
                sOut = sOut &amp; vbCrLf &amp; "    " &amp; sKey(i)
            Next i
            MsgBox "Section contains:" &amp; sOut, vbInformation
        Else
            MsgBox "Section is empty.", vbInformation
        End If
    End With
End Sub


Private Sub cmdGetValue_Click()
    With m_cIni
        .Path = txtInfo(0)
        .Section = txtInfo(1)
        .Key = txtInf