Public Function GetPrivateProfileSection( _
      ByRef rSection() As Variant _
    , Optional ByVal vSectionName As Variant _
    , Optional ByVal vFileName As Variant _
    ) As Boolean

    Assuming
       Dim estWAPI As New WindowsAPI
       estWAPI.ProfileFileName = "Sample.Ini"
       estWAPI.ProfileSectionName = "Sample Section"
       estWAPI.WritePrivateProfileString("Convert From", "5 kilometers") = True
       estWAPI.WritePrivateProfileString("Convert To", "miles") = True
       Dim avarSettings() As Variant
    for example
       estWAPI.GetPrivateProfileSection(avarSettings()) = True
    leaves
       LBound(avarSettings) = 0
       UBound(avarSettings) = 2
       ? avarSettings(1)
       Convert From="5 kilometers"
       ? avarSettings(2)
       Convert To="miles"

    ProfileSectionToVariantVector Function
    GetPrivateProfileSectionSample Subroutine
    GetPrivateProfileInt Function
    GetPrivateProfileString Function
    GetProfileSection Function
    ProfileFileName Property
    ProfileSectionName Property
    GetPrivateProfileSection Function (Windows API)
    GetAllSettings Function (Visual Basic 4.0+; not directly related)