Extract a subset of an array?

[343GS]

Hello everybody!
I am pretty new to vba but I am trying to learn step by step.
My question is: is there a way to extract n elements of a one-dimensional array?

For example, I created this array (mazzo):

Function GeneraMazzoCarte() As Long()
Dim mazzo(1 To 40) As Long, i As Long

For i = 1 To 40
mazzo(i) = i
Next
GeneraMazzoCarte = mazzo

End Function


Is there a way to extract, for example, the first 7 elements of it?

Thank you all for help!

 

[shg]

  Dim subset(1 To 7) As Long
  For i = 1 To 7
    subset(i) = mazzo(i)
  Next i

 

[343GS]

Thank you!

 

[343GS]

  Dim subset(1 To 7) As Long
  For i = 1 To 7
    subset(i) = mazzo(i)
  Next i

Thank you!

 

[shg]

Your welcome.