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