не сделать этот код короче? до максимального значения TxtConsecutiveNumber2.Lines (i) = ("79,80") Спасибо. Я хочу сделать этот код коротким, TxtConsecutiveCount всегда будет иметь значение +1. TxtConsecutiveCount1.Text, TxtConsecutiveCount2.Text, TxtConsecutiveCount3.Txt и TxtConsecutiveNumber2.Lines (i) остается неизменным, но будет равным следующим образом.

   For i As Integer = 1 To Val(TxtConsecutiveNumber2Count.Text)
        If TxtConsecutiveNumber2.Lines(i) = ("1,2") Then
            TxtConsecutiveCount1.Text = Val(TxtConsecutiveCount1.Text) + Val(1)
        Else
        End If
        If TxtConsecutiveNumber2.Lines(i) = ("2,3") Then
            TxtConsecutiveCount2.Text = Val(TxtConsecutiveCount2.Text) + Val(1)
        Else
        End If
        If TxtConsecutiveNumber2.Lines(i) = ("3,4") Then
            TxtConsecutiveCount3.Text = Val(TxtConsecutiveCount3.Text) + Val(1)
        Else
        End If
        If TxtConsecutiveNumber2.Lines(i) = ("4,5") Then
            TxtConsecutiveCount4.Text = Val(TxtConsecutiveCount4.Text) + Val(1)
        Else
        End If
        If TxtConsecutiveNumber2.Lines(i) = ("5,6") Then
            TxtConsecutiveCount5.Text = Val(TxtConsecutiveCount5.Text) + Val(1)
        Else
        End If

Этот код должен идти до.

    If TxtConsecutiveNumber2.Lines(i) = ("79,80") Then
        TxtConsecutiveCount79.Text = Val(TxtConsecutiveCount5.Text) + Val(1)
    Else
    End If

Как?