[VB6] Elencare i numeri di un array che compaiono almeno due volte

[Magicolotto]

num(1 to 6) as variant
for num1= 1 to 5
for num2= num1 + 1 to 6
if num1= num2 then