Display first 10 factors of a given number

Dim n
n=inputbox ("Enter a number to display first 10 factors")
for i=1 to 10
 msgbox n & " X " & i & " = " & n*i
next