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

Формулировка задачи:

Добрый вечер, пожалуйста помогите написать программу ,что бы определить наибольшее количество шашек которое можно съесть за ход. Конкретно дан входной файл в котором первая строка число N- далее как бы доска NXN вот пример 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 0 2 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 2-наша шашка 1-чужие шашки 0-пустые клетки Я начал ,но все мои идеи заходят в тупик

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

до этого я считываю файл в двумерный массив далее надо определить куда ходить . Пожалуйста помогите.

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

textual
                            Листинг программы 
                        
                            Sub myPrim(optional ChVz&)
 
 if ChVz<10 then myPrim ChVz+1
end sub