Private NumbersArray() As Int32
Array.Sort(NumbersArray)

Private NumbersList As New List(Of Int32)
NumbersList.Sort()

Private list As New SortedList

#Region " Remove Array Duplicates "
 
    ' Remove Array Duplicates
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Dim myarray(3) As String : myarray(0) = "a" : myarray(1) = "a" : myarray(2) = "b" : myarray(3) = "b"
    ' For Each item In Remove_Array_Duplicates(myarray) : MsgBox(item) : Next
 
    Private Function Remove_Array_Duplicates(ByVal Myarray() As String) As String()
        Return Myarray.Cast(Of String).Distinct().ToArray
    End Function
 
#End Region

#Region " Remove List Duplicates "
 
    ' Remove List Duplicates
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Dim list As New List(Of String) From {"a", "a", "b", "b", "c", "c"}
    ' For Each item In Remove_List_Duplicates(list) : MsgBox(item) : Next
 
    Private Function Remove_List_Duplicates(ByVal list As List(Of String)) As List(Of String)
        Return list.Cast(Of String).Distinct().ToList
    End Function
 
#End Region

Public Class Form1
 
    Private TextBoxes As TextBox() = {Nothing}
 
    Private Result1 As Int32(), Result2 As Int32()
 
    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
 
    Private Sub Sumar(sender As Object, e As EventArgs) _
    Handles Button_Sum.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}
 
        Result1 = {Num1 + 15, Num1 + 25} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 30, Num2 + 20} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items
 
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next
 
    End Sub
 
End Class