Dim a As Long
Dim b As Long
Dim c As Long
Dim n As Long
Dim t1 As String
Dim t2 As String
Dim g(100000) As String
Dim r As Integer
Dim m As Integer
Dim y As Single
Private Sub Command1_Click()

r = 1
t1 = TimeValue(Now)
 n = Val(Text1)
y = Int(n ^ 1 / 3) + 1

For a = 1 To y
If n / a = n \ a Then



        For b = 1 To n / a
        If n / b = n \ b Then




                For c = 1 To n / (b * a)
                If n / c = n \ c Then


'----------------------------------------'
1  If a * b * c = n Then                    '
g(r) = vbTab & a & vbTab & b & vbTab & c '
r = r + 1                                '
   End If                                   '
'----------------------------------------'


                End If
                Next c


        End If
        Next b


End If
Next a



t2 = TimeValue(Now)

    Label1 = t1
    label4 = t2

For m = 1 To r - 1
Text2 = Text2 & vbNewLine & Str(m) & g(m)
Next m


End Sub