Dim i As Integer = -1
 
        ListBox1.Items.Add(i) ' Result = -1
 
        i = Math.Abs(i)
 
        ListBox1.Items.Add(i) ' Result = 1

Public Class Form1
 
    ReadOnly MAX As Integer = 100
 
    Public Sub Test() Handles MyBase.Shown
 
        Dim Rand As New Random
 
        Dim result1 As Integer() = {1, 100, 2, 3, 4}
        Dim result2 As Integer() = {5, 500, 6, 6, 4}
        Dim result3 As Integer() = {7, 8, 9, 10, 99}
 
        ' Concateno, y...
        ' Elimino duplicados, y...
        ' Selecciono los números inferiores a MAX, y...
        ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
        Dim Result As IEnumerable(Of Integer) =
            (result1.Concat(result2).Concat(result3)).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)
 
        ' Result = 1, RANDOM, 2, 3, 4, 5, RANDOM, 6, 7, 8, 9, 10, 99
        ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)
 
    End Sub
 
End Class

    ReadOnly MAX As Integer = 99
 
    Public Sub Test() Handles MyBase.Shown
 
        Dim result1 As Integer() = {1, 100, 2, 3, 4}
        Dim result2 As Integer() = {5, 500, 6, 6, 4}
        Dim result3 As Integer() = {7, 8, 9, 10, 99}
 
        ' Elimino duplicados al mismo tiempo que selecciono los números inferiores a MAX.
        Dim Result As IEnumerable(Of Integer) =
            (
                From Value As Integer
                In (result1.Concat(result2).Concat(result3)).Distinct
                Where Value <= MAX
            )
 
        ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)
 
    End Sub