Very confused with VBA

[Bartender]

First and foremost, I apologize if a lot of my problems are basic, that any beginning programmer should know--- I'm trying to learn, but I'm very new.
I am trying to get a permutation program to work, I am adapting code I found in an online tutorial for VB6 to try to get it to run in VBA.
The foremost problem I encountered was in using dynamic arrays---I couldn't manage to get them to accept values I was trying to read into them.
Example:

Dim Elements() as Long
Dim ii as Long
ii=Val(Display.text)
For i = 1 to ii
Elements(i) = i
'So Element(1) should read 1, etc., I thought. I also tried i = 0 to ii.
Next i

Also, it wouldn't
After I just forced it to work by defining the arrays manually, just to get past it and worry later, I got an "out of stack space" error on the permutate recursion.
I assume this means I had too many iterations-- if so, is there a work-around, or am I just SOL?
Here is the code:

Option Explicit
 
Public Sub Permutate( _
   ByVal ArrayCount As Long, _
   ByRef Elements() As Long, _
   ByRef Order() As Long, _
   ByRef Orders As Collection)
    Dim Position   As Long
Dim Element    As Long
Dim i          As Double
Dim ArrayLen   As Long
 
   
   ArrayLen = (UBound(Elements) - LBound(Elements) + 1)
      
   Position = ArrayCount - ArrayLen + 1
   
   If ArrayLen = 1 Then
      Order(Position) = Elements(LBound(Elements))
      'Here is the comparison spot
      Orders.Add Order
   Else
      For i = LBound(Elements) To UBound(Elements)
         Element = Elements(i)
         Order(Position) = Element
         Permutate ArrayCount, RemoveFromArray(Elements, Element), Order, Orders
      Next i
   
   End If
   MsgBox Orders
End Sub
 
Public Function RemoveFromArray(ByRef Elements() As Long, ByVal Element As Long) As Long()
 
Dim NewArray() As Long
Dim i          As Long
Dim newi       As Long
 
   ' Will create a new array where Element has been left out.
 
   ReDim NewArray(LBound(Elements) To UBound(Elements))
   For i = LBound(Elements) To UBound(Elements)
      If Elements(i) <> Element Then
         newi = newi + 1
         NewArray(newi) = Elements(i)
      End If
   Next
   
   RemoveFromArray = NewArray
 
End Function
 
 
Private Sub Button_Click()
Dim x As Byte
Dim ArrayCount As Long
Dim Elements(9) As Long
Dim Order(9) As Long
Dim Orders As Collection
Dim i As Long
x = 10
'x = Val(Display.Text)
ArrayCount = x
'Later, this will read real values into the array
For i = 0 To 9
Elements(i) = i + 1
Next i
Permutate ArrayCount, Elements(), Order(), Orders
End Sub

Thanks for any help you can offer.