Написать программу по блок-схеме - VB

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

Дана блок схема. По ней нужно написать программу.

Решение задачи: «Написать программу по блок-схеме»

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

                            Dim x, n
x = Val(TextBox1.Text)
If x <= 100 And x >= -100 Then
For n = 1 To 3
x = x + 2 * n - 1
Next
If x > 15 Then
Label2.ForeColor = Color.Red
Else
Label2.ForeColor = Color.Blue
End If
Label1.Visible = True
Label2.Text = x
Label2.Visible = True
Else
MsgBox("X должен быть в диапазоне [-100;100]")
TextBox1.Text = ""
End If
                        