如何列出所有的公因數(編號：8040)

請問在這個程式碼中如何加入列出所有公因數的程式碼
text1,text2 = 輸入的值
Private Sub Command1_Click()
Dim max, min, tmp As Long
If Text1 ＞ Text2 Then
max = Text1: min = Text2
Else
max = Text2: min = Text1
　 End If
Do
tmp = min
　min = max - (Int(max / min) * min)
　max = tmp
Loop Until min = o
xmin = max
xmax = Text1 * (Text2 / xmin)
Label5 = xmin
Label6 = xmax
End Sub