Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, F As IntegerFor a = 1 To 9: For b = 1 To 9
If ab And Fu(a + b) Then
For c = 1 To 9
If ac And bc And Fu(b + c) Then
For d = 1 To 9
...