Return If(Value < MAX, Value, Rand.Next(0, MAX))

'--combis para reparar nesecita un boton y un trxbox TRABAJANDO EN ELLO AHORA
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
 
        ' Dim intCol As IEnumerable(Of Integer) = {2, 3, 4, 7}
        Dim intCol As IEnumerable(Of Integer) = (Result1)  '<---aca convierto las variables que trae los numeros pueden ser del 1 al 9
        ' lo que nesecito es formar combinaciones pares y que no pase del numero 50 
 
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
 
        For Each pairs As String In pairsCol
 
 
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
                ' MsgBox(pairs.Count)
                ' MsgBox(line.Count)
 
                Me.ListBox3.Items.Add(line)
            Next line
 
        Next pairs
    End Sub

Imports System.Collections.Generic
Dim input As let = new List()
Dim 2, 3, 5, 7 As 1,
 
Dim output As let = new Array()
For i As let = 0 To input.length-1
 For j As let = 0 To input.length-1
 If input(i) <> input(j) AndAlso  input(i) < 5 Then
  output.push(input[i] * 10 + input[j])
 
  End if
 
  Next
 
  Next
 
console.log(output) '[12, 13, 15, 17, 21, 23, 25, 27, 31, 32, 35, 37]

  Dim input As Integer() = {1, 2, 3, 5, 7}
 
        Dim output As New List(Of Integer)
 
        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i