Составить рекурсивную процедуру для печати k- го элемента массива целых чисел

Sub PrintK(A() as integer, k as integer)
  Debug.Print A(k)
End sub

Option Explicit
'
'    © FelixMacintosh
'
Public Function AbsArr(ParamArray Var())
    ' Абсолютный список
    'Арг: Динамическое добавление аргументов
    Dim f, v, v1
    Static ind&, ubn&, va(), rec&
    For Each v In Var(0)
        If Not IsArray(v) Then
            If ind = ubn Then ubn = ubn * 2 + 1: ReDim Preserve va(ubn)
            ubn = UBound(va)
            If IsObject(v) Then Set va(ind) = v Else va(ind) = v 'Set // Let
            ind = ind + 1
        Else: rec = rec + 1: Call AbsArr(v)
        End If
    Next
    If rec = 0 Then ReDim Preserve va(ind - 1): AbsArr = va
    rec = rec - 1
End Function
 
Private Sub Form_Unload(Cancel As Integer)
    Dim v, v1, f&
    v = Array(99, Array(1, 2, 3), 4, 5, Array(6, 7))
    v1 = AbsArr(v)
    For f = LBound(v1) To UBound(v1)
        Print "Varname:= v1(" & f & ") .................Value:= " & v1(f)
    Next
    Print "=================================="
    Print "Размер списка = " & LBound(v1) & " to " & UBound(v1)
    Cancel = MsgBox("Выйти ?", vbYesNo) = vbNo
End Sub

Option Explicit
'
'    © FelixMacintosh
'
Public Function AbsArr(ParamArray Var())
    ' Абсолютный список
    'Арг: Динамическое добавление аргументов
    Dim f, v, v1
    Static ind&, ubn&, va(), rec&
    If rec Then Var = Var(0)
    For Each v In Var
        If Not IsArray(v) Then
            If ind >= ubn Then ubn = ind * 2 + 1: ReDim Preserve va(ubn) Else _
            ubn = UBound(va)
            If IsObject(v) Then Set va(ind) = v Else va(ind) = v 'Set // Let
            ind = ind + 1
        Else: rec = rec + 1: Call AbsArr(v)
        End If
    Next
    If rec = 0 Then
        ReDim Preserve va(ind - 1): AbsArr = va
        ind = 0: ubn = 0: Erase va
    Else: rec = rec - 1
    End If
End Function
 
Private Sub Form_Unload(Cancel As Integer)
    Dim v, v1, f&
    v = Array(99, Form1, Array(1, 2, 3), 4, 5, Array(6, 7))
    v1 = AbsArr(1, v)
    v1 = AbsArr(v1, v1, v1)
    For f = LBound(v1) To UBound(v1)
        If IsObject(v1(f)) Then Print "Varname:= v1(" & f & ") .................Value:= " & TypeName(v1(f)) Else _
        Print "Varname:= v1(" & f & ") .................Value:= " & v1(f)
    Next
    Print "=================================="
    Print "Размер списка = " & LBound(v1) & " to " & UBound(v1)
    Cancel = MsgBox("Выйти ?", vbYesNo) = vbNo
End Sub

Option Explicit
Private Sub Комманда1_Click()
Dim A
A = Array(10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22)
REC A, 5, 0 ' вызов процедуры. Передаём массив, номер элемента и начало отсчёта
End Sub
 
Sub REC(A, K, X) ' рекурсивная процедура
    X = X + 1
        If K = X Then: Debug.Print A(K): Exit Sub
    REC A, K, X ' вызывает сама себя
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim f&, u&, l$(), p&, q&, rez#
    l = Split("13, 4, -2, 6, 7, -1, -5, 2, -3, 4", ",")
    ReDim m$(0), n$(0)
    u = UBound(l)
    For f = u To 0 Step -1
        If l(f) < 0 Then
            m(0) = m(0) & " " & Trim(l(f)): p = p + 1
        ElseIf Val(l(f)) > 0 Then n(0) = n(0) & " " & Trim(l(f)): q = q + 1
        End If
    Next
    m = Split(Mid$(m(0), 2)): n = Split(Mid$(n(0), 2))
    For f = 0 To IIf(p < q, p, q) - 1
      rez = rez + m(f) * n(f)
    Next f
    Cls
    Print "The result of calculation = " & rez
    CreateObject("SAPI.SpVoice").Speak "The result of calculation " & rez
    If MsgBox("Выйти ?", vbYesNo) = vbNo Then Cancel = 1
End Sub

Form=..\Default 001\Form1.frm

 Form=Form1.frm