Dim i, j, k, l, m, n As Integer
 
For i = 1 To 9
    For j = 1 To 9
        For k = 1 To 9
            For l = 1 To 9
                For m = 1 To 9
                    For n = 1 To 9
 
                        If (((((((((3 + i) * j) - 7) / k) + 9) * l) - m) / n)) _
                          = 14 Then
                            If i <> j <> k <> l <> m <> n And i _
                            <> k <> l <> m <> n <> j And i <> _
                            l <> m <> n <> j <> k And i <> m _
                            <> n <> j <> k <> l And i <> n <> j <> k <> l <> m Then
 
 
                                Debug.Print (i & "," & j & "," & k & "," & l & _
                                  "," & m & "," & n)
 
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
Next