Вычислить и вывести на печать все двузначные четные числа, не превосходящие 30 - VB

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

Построить алгоритм (можно нарисовать блок-схему) и составить программу на visual basic для решения следующей задачи. Вычислить и вывести на печать все двузначные четные числа, не превосходящие 30: 10, 12, 14, 16, 18, … и Построить алгоритм (можно нарисовать блок-схему) и составить программу на visual basic для решения следующей задачи. Вычислить и вывести на печать сумму 20 первых натуральных чисел: 1, 2, 3, 4, 5, … . Прошу помочь!

Решение задачи: «Вычислить и вывести на печать все двузначные четные числа, не превосходящие 30»

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

                            Private Sub Command2_Click()
Dim n As Byte, sum As Integer
n = 20
For i = 1 To n
sum = sum + i
Next i
MsgBox sum
End Sub
                        