Найти длину наибольшей возрастающей последовательности

Function res(A As Variant) As Variant
    Dim i As Long
   
    For i = 1 To UBound(A)
        If A(i) >= A(i + 1) Then Exit For
    Next i
            
   Debug.Print A(i)
End Function
 
Sub shislo()
    Dim A
    A = Array(1, 2, 6, 11, 3, 2, 5, 1, 1, 0, 4, 7, 8, 10, 1)
    If res(Array(1, 2, 6, 11, 3, 2, 5, 1, 1, 0, 4, 7, 8, 10, 1)) Then
    End If
End Sub

Option Explicit
 
Function res(A As Variant) As Variant
    Dim i As Long, k&
    For i = 1 To UBound(A)
        If A(i) > A(i - 1) Then
          k = k + 1
        Else
          If k > res Then res = k
          k = 0
        End If
    Next i
    If k > res Then res = k
    res = res + 1
End Function
 
Sub shislo()
    Dim A
    A = Array(1, 2, 6, 11, 3, 2, 5, 1, 1, 0, 4, 7, 8, 10, 1)
    MsgBox res(A)
End Sub

Option Explicit
Option Base 1
 
Sub Max_Len_A_Progresi()
 
Dim AR
Dim i As Integer
Dim PosS As Integer 'позиция стартового элемента
Dim PosE As Integer 'позиция конечного элемента
Dim PosSmax As Integer 'Поз. старт. МАКС длины последовательности
Dim PosEmax As Integer ' Поз. конец. МАКС длины последовательности
Dim st As String 'числа в проверяемой последовательности
Dim stMax As String 'числа в найденной макс. длины последовательности
 
AR = Array(1, 2, 6, 11, 3, 2, 5, 1, 1, 0, 4, 7, 8, 10, 1)
 
PosS = 1: PosE = 1
For i = 2 To UBound(AR)
    If AR(i) > AR(i - 1) Then
        PosE = i: st = st + CStr(AR(i)) & ","
        If PosEmax - PosSmax < PosE - PosS Then
            PosSmax = PosS: PosEmax = PosE: stMax = st
        End If
    Else
        PosS = i: PosE = i: st = CStr(AR(i)) & ","
    End If
Next
MsgBox stMax
End Sub

Function res(A As Variant) As Variant
    Dim i As Long, k&
    For i = 1 To UBound(A)
        If A(i) > A(i - 1) Then
          k = k + 1
          If k > res Then res = k
        Else
          k = 0
        End If
    Next i
    res = res + 1
End Function

posS=lbound(AR): posE=posS
For i = LBound(AR) + 1 To UBound(AR)