Обход с возвратом, указать стартовую ячейку

Public Function Kon(A)
    Dim B() As Integer
    Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer, start As Integer, finish As Integer, l As Integer, c As Integer
    start = A(5, 7)
    finish = A(6, 2)
    n = A.Rows.Count
    m = A.Columns.Count
    ReDim B(1 To n, 1 To m)
    B(5, 7) = start
    B(6, 2) = finish
    For i = 1 To n
        For j = 1 To m
            If A(i, j) = 1 And B(i, j) = 0 Then
                    k = k + 1
                B = KonRekurs(A, B, n, m, i, j, k)
            End If
        Next j
    Next i
    Kon = k
End Function
 
Public Function KonRekurs(A, B, n, m, l, c, k)
    Dim dl(1 To 8) As Integer, dc(1 To 8) As Integer, i As Integer, nl As Integer, nc As Integer, finish As Integer
    dl(1) = -2: dl(2) = -2: dl(3) = -1: dl(4) = 1: dl(5) = 2: dl(6) = 2: dl(7) = 1: dl(8) = -1
    dc(1) = 1: dc(2) = -1: dc(3) = 1: dc(4) = 2: dc(5) = 1: dc(6) = -1: dc(7) = -2: dc(8) = -2
    B(l, c) = k
    For i = 1 To 8
        nl = l + dl(i)
        nc = c + dc(i)
        If (nl > 0) And (nl <= n) And (nc > 0) And (nc <= m) Then
            If (A(nl, nc) <> 5) And (B(nl, nc) = 0) And (B(nl, nc) <> 4) Then
            k = k + 1
            B = KonRekurs(A, B, n, m, nl, nc, k)
            End If
        End If
    Next i
    KonRekurs = B
End Function

Option Explicit
 
Public Function Kon(A)
    Dim B() As Integer
    Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer, start As Integer
    n = A.Rows.Count
    m = A.Columns.Count
    ReDim B(1 To n, 1 To m)
    B(6, 2) = A(6, 2)
    For i = 1 To n
        For j = 1 To m
            If A(i, j) = 1 And B(i, j) = 0 Then
                k = k + 1
                B = KonRekurs(A, B, n, m, i, j, k)
            End If
        Next j
    Next i
    Kon = k
End Function
 
Public Function KonRekurs(A, B, n, m, l, c, k)
    Dim dl(1 To 8) As Integer, dc(1 To 8) As Integer, i As Integer, nl As Integer, nc As Integer, j As Integer
    dl(1) = -2: dl(2) = 2: dl(3) = 1: dl(4) = -1: dl(5) = -2: dl(6) = -1: dl(7) = 1: dl(8) = 2
    dc(1) = -1: dc(2) = -1: dc(3) = -2: dc(4) = -2: dc(5) = 1: dc(6) = 2: dc(7) = 2: dc(8) = 1
    B(l, c) = k
    If B(l, c) = 4 Then
        l = 6
        c = 2
    End If
    If B(l, c) = 1 Then
        l = 5
        c = 7
    End If
    B(l, c) = k
    For i = 1 To 8
        nl = l + dl(i)
        nc = c + dc(i)
        If (nl > 0) And (nl <= n) And (nc > 0) And (nc <= m) Then
            If (A(nl, nc) <> 5) And (B(nl, nc) = 0) Then
            k = k + 1
            B = KonRekurs(A, B, n, m, nl, nc, k)
        End If
        End If
    Next i
    KonRekurs = B
End Function

Option Explicit
 
Sub Рекурсивный_конь()
Dim A As Range, s As Integer
Set A = [A1:H8]
s = Kon(A)
Stop
End Sub
 
Public Function Kon(A)
    Dim B() As Integer 'Virt.MASS
    Dim i As Integer 'Start.Seek.y.pos
    Dim j As Integer 'Start.Seek.x.pos
    Dim k As Integer 'steps.count
    Dim m As Integer 'x.max
    Dim n As Integer 'y.max
    Dim start As Integer 'start.number.descriptor
    Dim finish As Integer 'end.number.descriptor
    'Dim l As Integer ' - not used!
    'Dim c As Integer ' - not used!
    
    start = A(5, 7)
    finish = A(6, 2)
    n = A.Rows.Count 'размерность доски y
    m = A.Columns.Count 'размерность доски x
    ReDim B(1 To n, 1 To m)
    B(6, 2) = finish 'можно и без этого
    B(5, 7) = start 'аналогично
    i = 5
    j = 7
    
    'For i = 1 To n
    '    For j = 1 To m
            'If A(i, j) = 1 And B(i, j) = 0 Then
                    
                B = KonRekurs(A, B, n, m, i, j, k)
                'k = k + 1
            'End If
    '    Next j
    'Next i
    Kon = k
End Function
 
Public Function KonRekurs(A, B, n%, m%, l%, c%, k%)
'1-свободное поле
'2-стартовое поле
'4-финиш
'5-запрещенное поле
'l - Start.Seek.y.pos
'c - Start.Seek.x.pos
'k - steps.count
'A - Real.map
'B - Virtual map + tracking & steps.count
 
    Dim dl() As Integer
    Dim dc() As Integer
    ReDim dl(1 To n) As Integer 'заменил на букву
    ReDim dc(1 To m) As Integer 'заменил на букву
    Dim i As Integer 'индекс направления хода
    Dim nl As Integer 'поз. Y тестируемого хода
    Dim nc As Integer 'поз. Х тестируемого хода
    'Dim finish As Integer '-not used!
    
    dl(1) = -2: dc(1) = 1 'вверх2-направо
    dl(2) = -2: dc(2) = -1 'вверх2-налево
    dl(3) = -1: dc(3) = 2 'вверх-направо2 'была ошибка!
    dl(4) = 1: dc(4) = 2 'вниз-направо2
    dl(5) = 2: dc(5) = 1 'вниз2-направо
    dl(6) = 2: dc(6) = -1 'вниз2-налево
    dl(7) = 1: dc(7) = -2 'вниз-налево2
    dl(8) = -1: dc(8) = -2 'вверх-налево2
    
    B(l, c) = k 'оставляем метку в вирт. поле на месте, где находимся (в роле метки - кол-во пройденных шагов).
    Cells(10, 1).Resize(8, 8) = B
    MsgBox ""
    
    For i = 1 To 8 'directions (8 шт.)
        nl = l + dl(i) 'двигаем коня по-вертикали
        nc = c + dc(i) 'двигаем коня по-горизонтали
        If nl > 0 And nl <= n And nc > 0 And nc <= m Then 'если не сбежал с поля ->
          If A(nl, nc) = 4 Then 'если увидел финиш (проверяем на реальном поле А,
            k = k + 1: MsgBox "Доехали!!! Ходов - " & k: End 'ведь на виртуальном "4" - может означать число ходов!)
          Else 'если не попал на враж. територию или на свои следы, или на взлетную
            If A(nl, nc) <> 5 And B(nl, nc) = 0 And A(nl, nc) <> 2 Then
              'Stop
              k = k + 1
              B = KonRekurs(A, B, n, m, nl, nc, k)
              'Stop
            End If
          End If
        End If
    Next i
    'Stop
    If i = 9 Then k = k - 1 'если в текущей позиции нет ходов - шаг назад
    If k = -1 Then MsgBox "Ходов нет!": Exit Function
    KonRekurs = B
End Function