Reducing occupied memory by multidimensional variant array in vba

Question

I have a rather large array:

Global add_vit(0 To 6, 0 To 6, 2 To 18, 0 To 1300, 0 To 8) As Variant

Which I fill partially fill up in module a, sub one, (which takes a long time). I wish to execute Module a sub one only once.

Once the execution has finished, I want to acces the above variant array in module b, sub two, and run module b sub two multiple times independently, in order to verify the code I am working on in module b, sub two.

I learnt that the "Global" part means that the the array will be filled/preserved even after module a, sub one is completely finished. That is what I need, but at the same time, I run on the border of getting out of memory errors.

I have several of such arrays in run module a, sub two which are all interlinked, and in certain conditions I need specific entries to be copied to other specific entries of arrays. This also prevents me from separating the computation of this last global array into another module.

I am also confused by the perceived randomness of when a "out of memory" error occurs, when I run the same script with the same initial conditions at different times, thoug I assume it is because the amount of memory available for excel is not static, but dependent on other processes I use on my laptop simultaneously.

Does anyone have a suggestion on how to maintain the same amount of entries (for doubles and longs), (or doubles and booleans) in storage accesible, (approx. 8.000.000) whilst still being able to access them from different modules when the initial computation is finished without occupying so much memory?*

*Without manually storing them into an excel sheet for it is tedious and slows down computation drastically.

I also try to reset the entire array manually before computations with the following script:

For A = 0 To 6
    For B = 0 To 5
        For C = 2 To 18
            For d = 0 To 1300
                For e = 0 To 4
                    add_vit(A, B, C, d, e) = ""
                Next e

                For f = 6 To 7
                    add_vit(A, B, C, d, e) = False
                Next f
            Next d
        Next C
    Next B
Next A

Answer 1

Thank you for your tips!

@A.S.H Thank you I have tested and validated that indeed a public also retains it's value after the the sub/module has been completed. So I appologize @ThunderFrame , you were right, I could use a public instead of a sub, thank you.

@user3598756 thank you, that was the statement I initially was looking for, the erase statement.

@Absinthe I forgot to mention that module 2 is actually a sub in a form that is generally called with userfomX.show, I still have to look up how the variables are passed through to that. But mainly the separation of the two modules was what I was looking for, which meant that I wanted to run module 2 without needing to run module1 everytime whilst still using the stored output of a single run of module one.

Thank you so much everyone, you are awesome!