Dim n, t As Integer 
Dim i As Integer 
n = InputBox(Enter a number, Table) 
For i = 1 To 10 
t = i * n 
lstDisplay.Items.Add(t) 
Next i