Изменение результата с учетом NumericUpDown - Visual Basic .NET

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

Доброго времени суток, такой вопросик, делаю программу, ответов много (ну как много, 4 ответа) У меня есть NumericUpDown, при увеличении значений (т.е. нажатии вверх) должен изменятся ответ в поле Textbox1.Text и в поле Textbox2.Text, а так же и нажатии вниз. Что я делаю не так?

Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        For j = 1 To 4
            If NumericUpDown1.Value + 1 Then
                TextBox1.Text = a(j)
                TextBox2.Text = b(j)
            ElseIf NumericUpDown1.Value - 1 Then
                TextBox1.Text = a(j - 1)
                TextBox2.Text = b(j - 1)
            End If
        Next
    End Sub

Решение задачи: «Изменение результата с учетом NumericUpDown»

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

                            Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
                TextBox1.Text = a(NumericUpDown1.Value)
                TextBox2.Text = b(NumericUpDown1.Value)
    End Sub
                        