Найти кратчайший путь в графе

Private Sub Command2_Click()
'Объявляем пути
Dim w1 As Double 'Объявляем путь 1
Dim w2 As Double 'Объявляем путь 2
Dim w3 As Double 'Объявляем путь 3
Dim w4 As Double 'Объявляем путь 4
Dim w5 As Double 'Объявляем путь 5
Dim w6 As Double 'Объявляем путь 6
Dim w7 As Double 'Объявляем путь 7
Dim w8 As Double 'Объявляем путь 8
Dim w9 As Double 'Объявляем путь 9
Dim w10 As Double 'Объявляем путь 10
Dim w11 As Double 'Объявляем путь 11
Dim w12 As Double 'Объявляем путь 12
Dim w13 As Double 'Объявляем путь 13
Dim w14 As Double 'Объявляем путь 14
Dim w15 As Double 'Объявляем путь 15
Dim w16 As Double 'Объявляем путь 16
Dim w17 As Double 'Объявляем путь 17
Dim w18 As Double 'Объявляем путь 18
Dim w19 As Double 'Объявляем путь 19
Dim w20 As Double 'Объявляем путь 20
Dim w21 As Double 'Объявляем путь 21
Dim w22 As Double 'Объявляем путь 22
Dim w23 As Double 'Объявляем путь 23
Dim w24 As Double 'Объявляем путь 24
Dim w25 As Double 'Объявляем путь 25
Dim w26 As Double 'Объявляем путь 26
Dim w27 As Double 'Объявляем путь 27
Dim w28 As Double 'Объявляем путь 28
Dim w29 As Double 'Объявляем путь 29
Dim w30 As Double 'Объявляем путь 30
Dim w31 As Double 'Объявляем путь 31
Dim w32 As Double 'Объявляем путь 32
Dim w33 As Double 'Объявляем путь 33
Dim w34 As Double 'Объявляем путь 34
Dim w35 As Double 'Объявляем путь 35
 
'Объявляем текстовые поля
Dim t1 As Single 'Объявляем текстовое поле 1
Dim t2 As Single 'Объявляем текстовое поле 2
Dim t3 As Single 'Объявляем текстовое поле 3
Dim t4 As Single 'Объявляем текстовое поле 4
Dim t5 As Single 'Объявляем текстовое поле 5
Dim t6 As Single 'Объявляем текстовое поле 6
Dim t7 As Single 'Объявляем текстовое поле 7
Dim t8 As Single 'Объявляем текстовое поле 8
Dim t9 As Single 'Объявляем текстовое поле 9
Dim t10 As Single 'Объявляем текстовое поле 10
Dim t11 As Single 'Объявляем текстовое поле 11
Dim t12 As Single 'Объявляем текстовое поле 12
Dim t13 As Single 'Объявляем текстовое поле 13
Dim t14 As Single 'Объявляем текстовое поле 14
Dim t15 As Single 'Объявляем текстовое поле 15
Dim t16 As Single 'Объявляем текстовое поле 16
Dim t17 As Single 'Объявляем текстовое поле 17
Dim t18 As Single 'Объявляем текстовое поле 18
Dim t19 As Single 'Объявляем текстовое поле 19
Dim t20 As Single 'Объявляем текстовое поле 20
Dim t21 As Single 'Объявляем текстовое поле 21
Dim t22 As Single 'Объявляем текстовое поле 22
Dim t23 As Single 'Объявляем текстовое поле 23
Dim t24 As Single 'Объявляем текстовое поле 24
Dim t25 As Single 'Объявляем текстовое поле 25
Dim t26 As Single 'Объявляем текстовое поле 26
Dim t27 As Single 'Объявляем текстовое поле 27
Dim t28 As Single 'Объявляем текстовое поле 28
Dim t29 As Single 'Объявляем текстовое поле 29
Dim t30 As Single 'Объявляем текстовое поле 30
Dim t31 As Single 'Объявляем текстовое поле 31
Dim t32 As Single 'Объявляем текстовое поле 32
Dim t33 As Single 'Объявляем текстовое поле 33
 
 
'Считываем значения из полей
t1 = Val(Text3.Text)
t2 = Val(Text8.Text)
t3 = Val(Text13.Text)
t4 = Val(Text18.Text)
t5 = Val(Text19.Text)
t6 = Val(Text20.Text)
t7 = Val(Text21.Text)
t8 = Val(Text4.Text)
t9 = Val(Text5.Text)
t10 = Val(Text6.Text)
t11 = Val(Text7.Text)
t12 = Val(Text22.Text)
t13 = Val(Text23.Text)
t14 = Val(Text24.Text)
t15 = Val(Text25.Text)
t16 = Val(Text9.Text)
t17 = Val(Text10.Text)
t18 = Val(Text11.Text)
t19 = Val(Text12.Text)
t20 = Val(Text26.Text)
t21 = Val(Text27.Text)
t22 = Val(Text28.Text)
t23 = Val(Text29.Text)
t24 = Val(Text14.Text)
t25 = Val(Text15.Text)
t26 = Val(Text16.Text)
t27 = Val(Text17.Text)
t28 = Val(Text30.Text)
t29 = Val(Text31.Text)
t30 = Val(Text32.Text)
t31 = Val(Text33.Text)
 
'Отмечаем пути
w1 = t4 + t5 + t6 + t7 + t11 + t19 + t27
n1 = "Путь 1,11,14,17,19,18,16,20"
w2 = t1 + t2 + t28 + t29 + t30 + t31
n2 = "Путь 1,5,8,10,9,7,4,20"
w3 = t4 + t5 + t6 + t10 + t15 + t19 + t27
n3 = "Путь 1,11,14,17,15,18,16,20"
w4 = t4 + t5 + t6 + t10 + t18 + t23 + t27
n4 = "Путь 1,11,14,17,15,13,16,20"
w5 = t4 + t5 + t6 + t10 + t18 + t26 + t31
n5 = "Путь 1,11,14,17,15,13,4,20"
w6 = t4 + t5 + t9 + t14 + t15 + t19 + t27
n6 = "Путь 1,11,14,12,15,18,16,20"
w7 = t4 + t5 + t9 + t14 + t18 + t23 + t27
n7 = "Путь 1,11,14,12,15,13,16,20"
w8 = t4 + t5 + t9 + t14 + t18 + t26 + t31
n8 = "Путь 1,11,14,12,15,13,4,20"
w9 = t4 + t5 + t9 + t17 + t22 + t23 + t27
n9 = "Путь 1,11,14,12,3,13,16,20"
w10 = t4 + t5 + t9 + t17 + t22 + t26 + t31
n10 = "Путь 1,11,14,12,3,13,4,20"
w11 = t4 + t5 + t9 + t17 + t25 + t30 + t31
n11 = "Путь 1,11,14,12,3,7,4,20"
w12 = t4 + t8 + t13 + t14 + t15 + t19 + t27
n12 = "Путь 1,11,2,12,15,18,16,20"
w13 = t4 + t8 + t13 + t14 + t18 + t23 + t27
n13 = "Путь 1,11,2,12,15,13,16,20"
w14 = t4 + t8 + t13 + t14 + t18 + t26 + t31
n14 = "Путь 1,11,2,12,15,13,4,20"
w15 = t4 + t8 + t13 + t17 + t22 + t23 + t27
n15 = "Путь 1,11,2,12,3,13,16,20"
w16 = t4 + t8 + t13 + t17 + t22 + t26 + t31
n16 = "Путь 1,11,2,12,3,13,4,20"
w17 = t4 + t8 + t13 + t17 + t25 + t30 + t31
n17 = "Путь 1,11,2,12,3,7,4,20"
w18 = t4 + t8 + t16 + t21 + t22 + t23 + t27
n18 = "Путь 1,11,2,6,3,13,16,20"
w19 = t4 + t8 + t16 + t21 + t22 + t26 + t31
n19 = "Путь 1,11,2,6,3,13,4,20"
w20 = t4 + t8 + t16 + t21 + t25 + t30 + t31
n20 = "Путь 1,11,2,6,3,7,4,20"
w21 = t4 + t8 + t16 + t24 + t29 + t30 + t31
n21 = "Путь 1,11,2,6,9,7,4,20"
w22 = t1 + t12 + t13 + t14 + t15 + t19 + t27
n22 = "Путь 1,5,2,12,15,18,16,20"
w23 = t1 + t12 + t13 + t14 + t18 + t23 + t27
n23 = "Путь 1,5,2,12,15,13,16,20"
w24 = t1 + t12 + t13 + t14 + t18 + t26 + t31
n24 = "Путь 1,5,2,12,15,13,4,20"
w25 = t1 + t12 + t13 + t17 + t22 + t23 + t27
n25 = "Путь 1,5,2,12,3,13,16,20"
w26 = t1 + t12 + t13 + t17 + t22 + t26 + t31
n26 = "Путь 1,5,2,12,3,13,4,20"
w27 = t1 + t12 + t13 + t17 + t25 + t30 + t31
n27 = "Путь 1,5,2,12,3,7,4,20"
w28 = t1 + t12 + t16 + t21 + t22 + t23 + t27
n28 = "Путь 1,5,2,6,3,13,16,20"
w29 = t1 + t12 + t16 + t21 + t22 + t26 + t31
n29 = "Путь 1,5,2,6,3,13,4,20"
w30 = t1 + t12 + t16 + t21 + t25 + t30 + t31
n30 = "Путь 1,5,2,6,3,7,4,20"
w31 = t1 + t12 + t16 + t24 + t29 + t30 + t31
n31 = "Путь 1,5,2,6,9,7,4,20"
w32 = t1 + t2 + t20 + t21 + t22 + t23 + t27
n32 = "Путь 1,5,8,6,3,13,16,20"
w33 = t1 + t2 + t20 + t21 + t22 + t26 + t31
n33 = "Путь 1,5,8,6,3,13,4,20"
w34 = t1 + t2 + t20 + t21 + t25 + t30 + t31
n34 = "Путь 1,5,8,6,3,7,4,20"
w35 = t1 + t2 + t20 + t24 + t29 + t30 + t31
n35 = "Путь 1,5,8,6,9,7,4,20"
 
 
'Проверка на не цифру
If Not IsNumeric(Text3.Text) Then
MsgBox "Нужно ввести  в поле цифру, а не букву"
Else
 If Not IsNumeric(Text4.Text) Then
 MsgBox "Нужно ввести  в поле цифру, а не букву"
 Else
  If Not IsNumeric(Text5.Text) Then
  MsgBox "Нужно ввести  в поле цифру, а не букву"
  Else
   If Not IsNumeric(Text6.Text) Then
   MsgBox "Нужно ввести  в поле цифру, а не букву"
   Else
    If Not IsNumeric(Text7.Text) Then
    MsgBox "Нужно ввести  в поле цифру, а не букву"
    Else
     If Not IsNumeric(Text8.Text) Then
     MsgBox "Нужно ввести  в поле цифру, а не букву"
     Else
      If Not IsNumeric(Text9.Text) Then
      MsgBox "Нужно ввести  в поле цифру, а не букву"
      Else
       If Not IsNumeric(Text10.Text) Then
       MsgBox "Нужно ввести  в поле цифру, а не букву"
       Else
        If Not IsNumeric(Text11.Text) Then
        MsgBox "Нужно ввести  в поле цифру, а не букву"
        Else
         If Not IsNumeric(Text12.Text) Then
         MsgBox "Нужно ввести  в поле цифру, а не букву"
         Else
          If Not IsNumeric(Text13.Text) Then
          MsgBox "Нужно ввести  в поле цифру, а не букву"
          Else
           If Not IsNumeric(Text14.Text) Then
           MsgBox "Нужно ввести  в поле цифру, а не букву"
           Else
            If Not IsNumeric(Text15.Text) Then
            MsgBox "Нужно ввести  в поле цифру, а не букву"
            Else
             If Not IsNumeric(Text16.Text) Then
             MsgBox "Нужно ввести  в поле цифру, а не букву"
             Else
              If Not IsNumeric(Text17.Text) Then
              MsgBox "Нужно ввести  в поле цифру, а не букву"
              Else
               If Not IsNumeric(Text18.Text) Then
               MsgBox "Нужно ввести  в поле цифру, а не букву"
               Else
                If Not IsNumeric(Text19.Text) Then
                MsgBox "Нужно ввести  в поле цифру, а не букву"
                Else
                 If Not IsNumeric(Text20.Text) Then
                 MsgBox "Нужно ввести  в поле цифру, а не букву"
                 Else
                  If Not IsNumeric(Text21.Text) Then
                  MsgBox "Нужно ввести  в поле цифру, а не букву"
                  Else
                   If Not IsNumeric(Text22.Text) Then
                   MsgBox "Нужно ввести  в поле цифру, а не букву"
                   Else
                    If Not IsNumeric(Text23.Text) Then
                    MsgBox "Нужно ввести  в поле цифру, а не букву"
                    Else
                     If Not IsNumeric(Text24.Text) Then
                     MsgBox "Нужно ввести  в поле цифру, а не букву"
                     Else
                      If Not IsNumeric(Text25.Text) Then
                      MsgBox "Нужно ввести  в поле цифру, а не букву"
                      Else
                       If Not IsNumeric(Text26.Text) Then
                       MsgBox "Нужно ввести  в поле цифру, а не букву"
                       Else
                        If Not IsNumeric(Text27.Text) Then
                        MsgBox "Нужно ввести  в поле цифру, а не букву"
                        Else
                         If Not IsNumeric(Text28.Text) Then
                         MsgBox "Нужно ввести  в поле цифру, а не букву"
                         Else
                          If Not IsNumeric(Text29.Text) Then
                          MsgBox "Нужно ввести  в поле цифру, а не букву"
                          Else
                           If Not IsNumeric(Text30.Text) Then
                           MsgBox "Нужно ввести  в поле цифру, а не букву"
                           Else
                            If Not IsNumeric(Text31.Text) Then
                            MsgBox "Нужно ввести  в поле цифру, а не букву"
                            Else
                             If Not IsNumeric(Text32.Text) Then
                             MsgBox "Нужно ввести  в поле цифру, а не букву"
                             Else
                              If Not IsNumeric(Text33.Text) Then
                              MsgBox "Нужно ввести  в поле цифру, а не букву"
                              Else
'Сравнение путей и печать ответа
If w1 <= w2 Or w1 <= w3 Or w1 <= w4 Or w1 <= w5 Or w1 <= w6 Or w1 <= w7 Or w1 <= w8 Or w1 <= w9 Or w1 <= w10 Or w1 <= w11 Or w1 <= w12 Or w1 <= w13 Or w1 <= w14 Or w1 <= w15 Or w1 <= w16 Or w1 <= w17 Or w1 <= w18 Or w1 <= w19 Or w1 <= w20 Or w1 <= w21 Or w1 <= w22 Or w1 <= w23 Or w1 <= w24 Or w1 <= w25 Or w1 <= w26 Or w1 <= w27 Or w1 <= w28 Or w1 <= w29 Or w1 <= w30 Or w1 <= w31 Or w1 <= w32 Or w1 <= w33 Or w1 <= w34 Or w1 <= w35 Then
Text1.Text = "Путь 1,11,14,17,19,18,16,20"
Text2.Text = w1
If w1 = w2 Then     'проверка на совпадение значений с другими путями
   Text1.Text = Text1.Text + n2
End If
If w1 = w3 Then
   Text1.Text = Text1.Text + n3
End If
If w1 = w4 Then
   Text1.Text = Text1.Text + n4
End If
If w1 = w5 Then
   Text1.Text = Text1.Text + n5
End If
If w1 = w6 Then
   Text1.Text = Text1.Text + n6
End If
If w1 = w7 Then
   Text1.Text = Text1.Text + n7
End If
If w1 = w8 Then
   Text1.Text = Text1.Text + n8
End If
If w1 = w9 Then
   Text1.Text = Text1.Text + n9
End If
If w1 = w10 Then
   Text1.Text = Text1.Text + n10
End If
If w1 = w11 Then
   Text1.Text = Text1.Text + n11
End If
If w1 = w12 Then
   Text1.Text = Text1.Text + n12
End If
If w1 = w13 Then
   Text1.Text = Text1.Text + n13
End If
If w1 = w14 Then
   Text1.Text = Text1.Text + n14
End If
If w1 = w15 Then
   Text1.Text = Text1.Text + n15
End If
If w1 = w16 Then
   Text1.Text = Text1.Text + n16
End If
If w1 = w17 Then
   Text1.Text = Text1.Text + n17
End If
If w1 = w18 Then
   Text1.Text = Text1.Text + n18
End If
If w1 = w19 Then
   Text1.Text = Text1.Text + n19
End If
If w1 = w20 Then
   Text1.Text = Text1.Text + n20
End If
If w1 = w21 Then
   Text1.Text = Text1.Text + n21
End If
If w1 = w22 Then
   Text1.Text = Text1.Text + n22
End If
If w1 = w23 Then
   Text1.Text = Text1.Text + n23
End If
If w1 = w24 Then
   Text1.Text = Text1.Text + n24
End If
If w1 = w25 Then
   Text1.Text = Text1.Text + n25
End If
If w1 = w26 Then
   Text1.Text = Text1.Text + n26
End If
If w1 = w27 Then
   Text1.Text = Text1.Text + n27
End If
If w1 = w28 Then
   Text1.Text = Text1.Text + n28
End If
If w1 = w29 Then
   Text1.Text = Text1.Text + n29
End If
If w1 = w30 Then
   Text1.Text = Text1.Text + n30
End If
If w1 = w31 Then
   Text1.Text = Text1.Text + n31
End If
If w1 = w32 Then
   Text1.Text = Text1.Text + n32
End If
If w1 = w33 Then
   Text1.Text = Text1.Text + n33
End If
If w1 = w34 Then
   Text1.Text = Text1.Text + n34
End If
If w1 = w35 Then
   Text1.Text = Text1.Text + n35
End If
Else
    If w2 <= w1 Or w2 <= w3 Or w2 <= w4 Or w2 <= w5 Or w2 <= w6 Or w2 <= w7 Or w2 <= w8 Or w2 <= w9 Or w2 <= w10 Or w2 <= w11 Or w2 <= w12 Or w2 <= w13 Or w2 <= w14 Or w2 <= w15 Or w2 <= w16 Or w2 <= w17 Or w2 <= w18 Or w2 <= w19 Or w2 <= w20 Or w2 <= w21 Or w2 <= w22 Or w2 <= w23 Or w2 <= w24 Or w2 <= w25 Or w2 <= w26 Or w2 <= w27 Or w2 <= w28 Or w2 <= w29 Or w2 <= w30 Or w2 <= w31 Or w2 <= w32 Or w2 <= w3 Or w2 <= w34 Or w2 <= w35 Then
Text1.Text = "Путь 1,5,8,10,9,7,4,20"
Text2.Text = w2

Dim w(35) As Double

for i=1 to 35
for j=1 to 35
if w(i)<=w(j)
select case i