Как создать стек для рекурсивной функции?

Dim i&
 
Sub test()
  i = i + 1
  Debug.Print i 'Out of stack space при i=6801
  test
End Sub
 
Sub test1()
1 i = i + 1
  Debug.Print i 'Out of stack space при i=244809, в 36 раз больше!
  GoSub 1
End Sub

Option Explicit
 
Dim AddrStart As Long
Dim AddrEnd As Long
 
Private Sub Form_Load()
  Tst 0
  Debug.Print "Было использовано " & (AddrEnd - AddrStart) & " байт стека"
End Sub
 
Sub Tst(ByVal i As Long)
  If AddrEnd = 0 Then AddrEnd = VarPtr(i)
  If i < 10 Then
    i = (i + 1)
    Tst i
  Else
    AddrStart = VarPtr(i)
  End If
End Sub

Dim first   As Long
Dim last    As Long
 
Private Sub Form_Load()
    On Error GoTo getStack
    foo 0
    
getStack:
    
    MsgBox Hex(first - last)
    
End Sub
 
Private Sub foo(ByVal z As Long)
 
    If z = 0 Then
        first = VarPtr(z)
        z = 1
    Else
        last = VarPtr(z)
    End If
 
    foo z
    
End Sub