Private Sub EnvironToVariantVectorSample()
    ' Print all of the Environment settings using the EnvironToVariantVector function.
    ' Settings are printed in alphabetical order.

    Dim varIgnore As Variant
    Dim avarSettings() As Variant
    varIgnore = EnvironToVariantVector(avarSettings)
    varIgnore = SortVariantVector(avarSettings)
    Debug.Print VariantVectorToString(avarSettings, vbCrLf)

End Sub