Вычисления по формуле (аргументы выбираются из списка) - VB

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

Здравствуйте, неожиданно столкнулся с такой проблемой: нужно написать программу для вычисления формулы a/b*c/d=((Zf-Z)*40)Zf, проблема заключаеться в следуйшем занечия, Zf и Z нужно вести, тоеть они даны, а вод заначения a,b,c,d нужно выбрать из списка (25,30,40,50,55,60,70,80,90,10) так чтобы равенство соблюдалось. Никак не могу понять как реализовать данную программу, буду благодарен за любую помощь!

Решение задачи: «Вычисления по формуле (аргументы выбираются из списка)»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
zf = Val(InputBox("Zf=?"))
z = Val(InputBox("Z=?"))
a = Array(25, 30, 40, 50, 55, 60, 70, 80, 90, 100)
For i1 = 0 To UBound(a)
 For i2 = 0 To UBound(a)
  For i3 = 0 To UBound(a)
   For i4 = 0 To UBound(a)
If (a(i1) / a(i2)) * (a(i3) / a(i4)) = (zf - z) * 40 * zf Then
Print "a = "; a(i1)
Print "b = "; a(i2)
Print "c = "; a(i3)
Print "d = "; a(i4)
Exit Sub
End If
 
   Next i4
  Next i3
 Next i2
Next i1
Print "не найдено"
End Sub
                        