Private Sub FixUpVariantBoundsSample()
    ' Sample of the FixUpVariantBounds function.

    Dim varLower1 As Variant
    varLower1 = Null
    Dim varUpper1 As Variant
    varUpper1 = Null
    Dim avarData() As Variant
    ReDim avarData(0 To 5, 0 To 20)
    Debug.Print FixUpVariantBounds(avarData(), varLower1, varUpper1, 1)
    Debug.Print varLower1
    Debug.Print varUpper1
End Sub