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 As String
Dim r As Integer


Private Sub Command1_Click()

r = 1
t1 = TimeValue(Now)
 n = Val(Text1)


For a = 1 To n/2
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 = g & vbNewLine & Str(r) & vbTab & a & vbTab & b & vbTab & c  '
r = r + 1                                                       '
   End If                                                       '
'---------------------------------------------------------------'


                End If
                Next c


        End If
        Next b


End If
Next a
Text2 = g

t2 = TimeValue(Now)

    Label1 = t1
    label4 = t2



End Sub