Как сделать вывод всех значений в одном окошке?

[Kechappu]

Есть задачка: Среди всех трехзначных чисел выбрать и вывести те, которые делятся на шесть без остатка.

Вот код:
Sub work4b_variant6()
Dim x As Integer
For x = 100 To 999
If x Mod 6 = 0 Then MsgBox (x)
Next x
End Sub

Вполне работает, но тут вывод выскакивает каждый раз с новым значением, а я хочу в одно окошечко в столбец все числа вывести, я понимаю что логично будет MsgBox опустить вниз после Next, но не понимаю что тогда писать после Then =))

Вторая задачка, хочу чтобы меня проверили: Дано целое число k. Найти произведение целых чисел, больших трех и меньших k

Вот код:
Sub work4a_variant6()
Dim k, s, i As Integer
k = Val(InputBox("vvedite k"))
s = 4
For i = 4 To k - 1
s = s * i
Next i
MsgBox ("result=" & s)
End Sub

Тут почему то приход в голову мысля что s=4 это неправильно

[Казанский]

кросс http://www.cyberforum.ru/vba/thread2187536.html

[IgorGO]

for x = 100 to 999
if x mod 6 = 0 then s = s & " " x
next
msgbox s
*********************************** *************

if k-1 > 3 then s = 1