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

Формулировка задачи:

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

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 это неправильно

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

textual
                            Листинг программы 
                        

                            Sub work4b_variant6()
Dim x As Integer, s As String
For x = 100 To 999
  If x Mod 6 = 0 Then s = s & x & vbLf
Next x
MsgBox s
End Sub
                        