TextBoxCount = -1 ' Reseteo el valor a -1

Public Class Form1
 
    Dim maximum As Short = 99
    Dim x As Integer = 0
    Dim Número As Double
    Private TextBoxes As TextBox() = {Nothing}
    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32(), Result4 As Int32()
    Private _textBox As Object
 
    Private Property Calcular As Object
 
    Private Property TextBox(ByVal TextBoxCount As Short) As Object
        Get
            Return _textBox
        End Get
        Set(ByVal value As Object)
            _textBox = value
        End Set
    End Property
 
    Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
        ' evitar letras
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
 
    End Sub
 
 
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
 
    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
    ReadOnly Property Num3 As Int32
        Get
            Return CInt(TextBox3.Text)
        End Get
    End Property
    ReadOnly Property Num4 As Int32
        Get
            Return CInt(TextBox4.Text)
        End Get
    End Property
 
    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
 
 
        Dim TextBoxCount As Short = -1
 
        TextBoxes = {TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24}
 
        Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result4 = {Num4 + 10, Num4 + 20, Num4 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
 
 
        Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)
        Array.Sort(Result4)   ' Ordeno los Items
 
        TextBoxCount = -1 ' Reseteo el valor a cero <------cambie como dijiste y nada
 
        Dim Results As IEnumerable(Of Integer) =
            Result1.Concat(Result2).Concat(Result3).Concat(Result4) ' concateno arrays
 
        If Results.Count > TextBoxes.Count Then
            Throw New Exception("La cantidad de números es mayor que la cantidad de Textboxes")
        End If
 
        For X As Integer = 0 To Results.Count - 1
 
            'TextBoxCount += 1 '  <------cambie  y nada tambien lo cambie de sitio
 
            TextBoxCount += 0 '  <------cambie  y nada
 
            Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any
 
                Case False ' El número no está repetido en ninguna "linea"
                    ' Así que colocamos el número en el Textbox
                    Try
                        TextBoxes(TextBoxCount).Text = CStr(Results(X))
                    Catch ex As Exception
                        Throw New Exception(ex.Message & ex.StackTrace)
                    End Try
 
                Case True ' El número está repetido en alguna de las "lineas"
                    ' Así que escribimos el número "máximo" en el textbox
                    TextBoxes(TextBoxCount).Text = -CStr(maximum)
 
            End Select
 
 
        Next X
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class