Как написать код алгебраического уравнения, на перебор? - VB

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

Добрый вечер!

Вроде бы задание со школьной Олимпиады, очень интересно — пригодится в жизни. Подскажите, пожалуйста, принцип кода — для перебора всех вариантов решений уравнения, так чтобы компьютер напечатал результаты:

a,b,c is integer number ab+bc+ac=8(a+b+c)

Решение задачи: «Как написать код алгебраического уравнения, на перебор?»

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

                            Sub Willi()
  Dim a As Integer, b As Integer, c As Integer, k As Integer
  For a = 1 To 64
   For b = 1 To 64
    For c = 1 To 64
     If a * b + b * c + a * c = 8 * (a + b + c) Then
         k = k + 1
         ActiveDocument.Range.InsertAfter k & ") a=" & a & "; b= " & b & "; c= " & c & "." & vbCr
     End If
    Next
   Next
  Next
End Sub
                        