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

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