Populate Array For Later Use In Macro Code

i've come across something that i'd like to do with regards to populating an array/variant not using a global variable.

i currenty have this for testing purposes which works, but perhaps not the best solution?


Private vntArrayCodes() As Variant

Sub populateVntArrayCodes(ByVal intArrayCount As Integer, _
ByVal strCode As String)

Redim Preserve vntArrayCodes(intArrayCount)
vntArrayCodes(intArrayCount) = strCode

End Sub

Is there another way to do this without using a OO Classes?