Private Sub GetPrivateProfileSectionSample()
    ' Print a sample of the GetPrivateProfileSection function.

    Dim avarSection() As Variant
    If GetPrivateProfileSection(avarSection, "windows", "WIN.INI") Then
        Debug.Print IllustrateVariantVector(avarSection)
    Else
        Debug.Print "Function failed."
    End If
End Sub