Определить, можно ли попасть по дорогам из первого пункта в n-й

Private Minc(1 To 10, 1 To 10) As Integer
Private Chk(1 To 10)           As Integer
Private flg                    As Boolean
Private Path                   As String   '::: Строка пути
 
Sub Init()
 
Dim i As Integer
Dim j As Integer
 
    For i = 1 To 10
    
        Chk(i) = 0
        
        For j = 1 To 10
            Minc(i, j) = 0
        Next j
        
    Next i
 
    Minc(1, 5) = 1
    Minc(5, 1) = 1
 
    Minc(2, 5) = 1
    Minc(5, 2) = 1
 
    Minc(3, 5) = 1
    Minc(5, 3) = 1
 
    Minc(6, 5) = 1
    Minc(5, 6) = 1
 
    Minc(6, 7) = 1
    Minc(7, 6) = 1
 
    Minc(4, 5) = 1
    Minc(5, 4) = 1
 
    'Minc(4, 8) = 1
    'Minc(8, 4) = 1
 
    Minc(9, 8) = 1
    Minc(8, 9) = 1
 
    Minc(8, 10) = 1
    Minc(10, 8) = 1
 
    flg = False
 
    Path = ""
 
End Sub
 
Sub DFS(n As Integer, m As Integer)
 
Dim i As Integer
 
    If flg Then
       Exit Sub
    End If
 
    Chk(n) = 1
    
    Path = Path & ";" & CStr(n)
    
    For i = 1 To 10
    
        If (Minc(i, n) <> 0) And (Chk(i) = 0) Then
           
           If i = m Then
              flg = True
              Debug.Print Path & ";" & CStr(m) '::: Печать пути
              Exit Sub
           End If
           
           DFS i, m
           
           k% = InStrRev(Path, ";")
           
           Path = Left$(Path, (k% - 1))
                      
        End If
        
    Next i
 
End Sub
 
Sub Start()
 
    Init
 
    DFS 7, 10
 
    If flg Then
       Debug.Print "Путь найден"
    Else
       Debug.Print "Путь не существует"
    End If
 
End Sub