Определить наибольшее количество шашек которое можно съесть за ход

Dim f(999, 999) As String
s = 1
Open "input.txt" For Input As #1
Line Input #1, p
For i = 1 To p
Line Input #1, x
s = 1
For n = 1 To p
If Mid(x, s, 1) = "1" Then raz = raz + 1
f(i, n) = Mid(x, s, 1)
If Mid(x, s, 1) = "2" Then vert = i: gor = n
s = s + 2
Next n
Next i
Close #1

Option Explicit
Const N As Integer = 8
Dim Pmax%
Dim Amax()
 
Sub main()
Pmax=0
Amax=[a1:h8].Value
rc Amax, 4, 3, 0
[k1:r8].Value = Amax
MsgBox Pmax & " шашек под боем."
End Sub
 
Sub rc(ByVal a, r%, c%, p%)
Dim dr%, dc%
If p > Pmax Then Pmax = p: Amax = a ': [k1:r8].Value = Amax: Stop
For dr = -1 To 1 Step 2
  If r + 2 * dr >= 1 And r + 2 * dr <= N Then
    For dc = -1 To 1 Step 2
      If c + 2 * dc >= 1 And c + 2 * dc <= N Then
        If a(r + dr, c + dc) = 1 And a(r + 2 * dr, c + 2 * dc) = 0 Then
          a(r, c) = 0
          a(r + dr, c + dc) = 0
          a(r + 2 * dr, c + 2 * dc) = 2
          rc a, r + 2 * dr, c + 2 * dc, p + 1
          a(r, c) = 2
          a(r + dr, c + dc) = 1
          a(r + 2 * dr, c + 2 * dc) = 0
        End If
      End If
    Next dc
  End If
Next dr
End Sub

Private Enum ItemType
    IT_Free
    IT_Enemy
    IT_Me
End Enum
 
Private Function Calc(Arr() As ItemType, ByVal x As Long, ByVal y As Long) As Long
    Dim ct As Long, Max As Long, dx As Long, dy As Long
    For dx = -1 To 1 Step 2: For dy = -1 To 1 Step 2
        If ((dx < 0 And x > 1) Or (dx > 0 And x < UBound(Arr, 1) - 1)) And _
           ((dy < 0 And y > 1) Or (dy > 0 And y < UBound(Arr, 2) - 1)) Then
            If Arr(x + dx, y + dy) = IT_Enemy And Not (Arr(x + dx * 2, y + dy * 2) = IT_Enemy) Then
                Arr(x + dx, y + dy) = IT_Free
                ct = Calc(Arr(), x + dx * 2, y + dy * 2) + 1
                Arr(x + dx, y + dy) = IT_Enemy
                If ct > Max Then Max = ct
            End If
        End If
    Next: Next
    Calc = Max
End Function