¿Cómo acorto este código? al valor máximo TxtConsecutivoNumber2.Lines (i) = ("79,80") Gracias. Quiero hacer que este código sea corto, TxtConsecutivoCount siempre tendrá un valor de +1. TxtConsecutivoCount1.Text, TxtConsecutivoCount2.Text, TxtConsecutivoCount3.Txt y TxtConsecutivoNumber2.Lines (i) permanece igual, pero será igual de la siguiente manera.

   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

Este código debería ir hasta.

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

¿Cómo