HALA RADIFE?

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 = 2 To n / 2
If n / a = n \ a Then



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




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


'---------------------------------------------------------------'
1  If a * b * c = n Then                                        '
g = g & Str(r) & vbTab & a & vbTab & b & vbTab & c & vbNewLine  '
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