Dim a As Double
Dim b As Double
Dim c As Double
Dim n As Double
Private Sub Command1_Click()
n = Val(Text1)
For a = 1 To n
For b = 1 To n
For c = 1 To n
If a * b * c = n Then
Print a & vbTab & b & vbTab & c
End If
Next c
Next b
Next a

End Sub