Как в INI файле перейти к нужному разделу? - VB

Формулировка задачи:

Наверняка вопрос простой - как в INI файле перейти к нужному разделу?

Решение задачи: «Как в INI файле перейти к нужному разделу?»

textual
                            Листинг программы 
                        

                            Private Declare Function GetPrivateProfileSection Lib 'kernel32' _
Alias 'GetPrivateProfileSectionA' (ByVal lpApplicationName As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Public Function GetSection(ByVal Section As String) As String
 
    Dim retval As String
    Dim Result As Integer
    
    retval = String$(2048, 0)
    Result = GetPrivateProfileSection(Section, retval, VBA.Len(retval), FilePath)
 
    If Result = 0 Then 'Failed To Retreive Section
        GetSection = vbNullString
    Else
        GetSection = VBA.Left(retval, VBA.InStr(retval, vbNullChar & vbNullChar))
    End If
 
End Function
                        