Задача: вывести квадраты четных чисел от 1 до 12 - VB

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

Задача простая(даже очень), но проблема в том, что выводит только последнее число(в данном случае 12).. проверял без условия и квадрата - тоже выводит только последнее, т.е цикл не срабатывает..

Dim i As Integer 
For i = 1 To 12 Step 1 
If (i Mod 2 = 0) Then 
TextBox2.Text = ("квадрат " + Str(i) + " = " + Str(i * i)) 
End If 
Next i 
End Sub

Помогите плиз, ситуация тупая, не могу её сдать.. Просьба - писать по возможности самые понятные и примитивные функции(и операторы), или хотя бы объяснить работу проги..

Решение задачи: «Задача: вывести квадраты четных чисел от 1 до 12»

textual
                            Листинг программы 
                        
                            TextBox2.Text = TextBox2.Text  & vbcrlf & ("квадрат " + Str(i) + " = " + Str(i * i))