'If intCounter is less than or equal to intN2, then... Do While (intCounter <= intN2) 'Increments the multiple intMulti = intMulti + intN1 'Adds multiple to list lstMulti.AddItem (CStr(intMulti)) 'Increments counter intCounter = intCounter + 1 'Repeat untill condition is met Loop 'Clears text boxes txtN1 = "" txtN2 = "" 'Ends if statement End If