For a = 1 To 49
    For b = 1 To 49
        For c = 1 To 49
            For d = 1 To 49
                For e = 1 To 49
                    For F = 1 To 49
                    DoEvents
 
                    S = a + b + c + d + e + F
                    P = CLng(a) * b * c * d * e * F
                    If P < 1900000 Then GoTo hier
                    M = P / S
 
                    Text1(0).Text = a
                    Text1(1).Text = b
                    Text1(2).Text = c
                    Text1(3).Text = d
 
 
                    If P = M * S Then
                        If a = b Or a = c Or a = d Or a = e Or a = F Then GoTo _
                          hier
                        If b = c Or b = d Or b = e Or b = F Then GoTo hier
                        If c = d Or c = e Or c = F Then GoTo hier
                        If d = e Or d = F Then GoTo hier
                        If e = F Then GoTo hier
                        If P > 1900000 Then
 
                            Print #G, a, "|", b, "|", c, "|", d, "|", e, "|", _
                              F, "|", P, "|", S, "|", K & vbCrLf
                    End If
                    End If
hier:
                    Next F
                Next e
             Next d
        Next c
    Next b
Next a

---------
Lasst es nicht soweit kommen: http://www.againsttcpa.com