#Numeros que ha introducido el usuario, en este caso 1 2 3 4
%guia = ('A' => 1, 'B', => 2, 'C' => 3, 'D' => 4);
 
#Combinaciones predefinidas
@combinaciones = ('A-B-C-D', 'A-B-D-C', 'A-D-B-C');
 
foreach(@combinaciones) {
  s/(A|B|C|D)/$guia{$1}/g;
  say;
}

1-2-3-4
1-2-4-3
1-4-2-3

10-20-30-40-50-60
10-20-30-70-80-90
40-50-60-70-80-90

Public Class ComboTest : Inherits Form
 
#Region " Objects, Vars "
 
    ' La Class "Random", es necesaria para desordenar una colección
    ' y esta declaración tiene que ir siempre fuera de cualquier Sub.
    Private ComboRandomizer As New Random
 
    ' El control que creo en tiempo de ejecución, donde mostraré las combinaciones.
    Private rtb As New RichTextBox With
            {
              .Dock = DockStyle.Fill,
              .Font = New Font("Lucida Console", 10.0F)
            }
 
    ' Una "palanca" para habilitar/deshabilitar el bloque de depuración.
    Private EnableDebug As Boolean = False
 
    ' Instancio una lista donde iremos guardando cada combinación obtenida.
    Private Combos As New List(Of Integer())
 
 
    ' enpesamos combis
    Private ReadOnly NumberWheel As New Dictionary(Of Integer, Integer) From
       {{1, 15}, {2, 19}, {3, 20}, {4, 22}, {5, 22}}
 
    ' Otra lista donde le daré el formato deseado a los números.
    Dim ComboStrings As List(Of String) = Nothing
 
    ' El máximo de combinaciones.
    Private Property MaxCombos As Integer = 50I
 
    ' El máximo de longitud para cada combinación.
    Private Property MaxComboLength As Integer = 11I
 
    ' Los números "guías" que usaremos para rellenar cada combinación.
    Private ReadOnly Numbers As Integer() =
        (From n As Integer In
         ("01-02-03-04-05-06" &
          ""
         ).Split({"-"}, StringSplitOptions.RemoveEmptyEntries)).ToArray
 
#End Region
 
#Region " Constructors "
 
    ' De este Sub no hagas caso, es el constructor del Form.
    Public Sub New()
 
        ' This call is required by the designer.
        ' Add any initialization after the InitializeComponent() call.   
        InitializeComponent()
 
        ' Añado el control al Form.
        Me.Controls.Add(rtb)
 
    End Sub
 
#End Region
 
#Region " Event-Handlers "
 
    Private Sub ComboTest() Handles MyBase.Load
 
        Me.DoCombos()
        Me.PrintCombos()
 
    End Sub
 
#End Region
 
#Region " Methods "
 
    ' La función que se encarga de desordenar y devolverte una combinación.
    ' By Elektro.
    Friend Function GetRandomCombination(Of T)(ByVal [NumberWheel] As IEnumerable(Of T),
                                               ByVal [Length] As Integer) As IEnumerable(Of T)
 
        Return (From Item As T In [NumberWheel] Order By ComboRandomizer.Next Take [Length]).ToArray
 
    End Function
 
    Private Sub DoCombos()
 
        ' Añadir combinaciones a la lista, hasta que la lista tenga 'MaxComboLength' (80) elementos.
        Do Until Combos.Count = (MaxCombos - 1)
 
            ' Obtengo una combinación.
            Dim tmpCombo As Integer() = Me.GetRandomCombination(Of Integer)(Numbers, MaxComboLength)
 
            ' Ordeno los elementos de la combinación, de menos a mayor.
            Array.Sort(tmpCombo)
 
            ' Añado la combinación a la lista.
            Combos.Add(tmpCombo)
 
        Loop
 
        ' Ordeno los elementos de la lista, basandome en el orden de los elementos de cada Array.
        ' NOTA: Puede tener fallos al ordenar, no aseguro que el orden sea perfecto.
        Combos = (From Combo As Integer() In Combos Order By Convert.ToDecimal(String.Join("", Combo)) Ascending).ToList
        Combos = (From Combo As Integer() In Combos Order By Combo.First Ascending).ToList
 
        ' Además, creo utra lista Strings, para darle formato a cada combo numérico,
        ' y añadirle así un "0" a los números del "1" al "9" y que quede más bonito en la previsualización xD.
        Me.ComboStrings =
            (From Combo In Combos
             Select (String.Join(" | ", From Value As String In Combo
                                       Select If(Value.Length = 1, "0" & Value, Value)))).ToList
 
#If DEBUG Then
 
        ' El bloque de depuración.
        ' Este bloque entero es para testear el formato que le quieras dar.
        If Me.EnableDebug Then
 
            Dim sb As New System.Text.StringBuilder
 
            With sb
 
                For Index As Integer = 0 To (MaxCombos - 1)
 
                    sb.AppendLine(String.Format("Combo sin formato:"))
                    sb.AppendLine(String.Join(", ", Combos(Index)))
                    sb.AppendLine()
                    sb.AppendLine(String.Format("Combo con formato:"))
                    sb.AppendLine(String.Join(", ", ComboStrings(Index)))
 
                    MessageBox.Show(sb.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                    sb.Clear()
 
                Next Index
 
            End With
 
        End If
 
#End If
 
    End Sub
 
    Private Sub PrintCombos()
 
        ' Muestro los Combos en el control.
        With Me.rtb
 
            .SuspendLayout()
            For Each Combo As String In Me.ComboStrings
                .AppendText(Combo)
                .AppendText(Environment.NewLine & New String("-", Combo.Length) & Environment.NewLine)
            Next Combo
            .ResumeLayout()
 
            .Select(0, 0)
 
        End With
 
    End Sub
 
#End Region
 
End Class
 

Public Class ComboTest : Inherits Form
 
#Region " Objects, Vars "
 
    ' La Class "Random", es necesaria para desordenar una colección
    ' y esta declaración tiene que ir siempre fuera de cualquier Sub.
    Private ComboRandomizer As New Random
 
    ' El control que creo en tiempo de ejecución, donde mostraré las combinaciones.
    Private rtb As New RichTextBox With
            {
              .Dock = DockStyle.Fill,
              .Font = New Font("Lucida Console", 10.0F)
            }
 
    ' Una "palanca" para habilitar/deshabilitar el bloque de depuración.
    Private EnableDebug As Boolean = False
 
    ' Instancio una lista donde iremos guardando cada combinación obtenida.
    Private Combos As New List(Of Integer())
 
    ' Otra lista donde le daré el formato deseado a los números.
    Dim ComboStrings As List(Of String) = Nothing
 
    ' El máximo de combinaciones.
    Private Property MaxCombos As Integer = 80I
 
    ' El máximo de longitud para cada combinación.
    Private Property MaxComboLength As Integer = 6I
 
    ' Los números "guías" que usaremos para rellenar cada combinación.
    'Private ReadOnly Numbers As Integer() =
    '    (From n As Integer In
    '     ("01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-" &
    '      "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-" &
    '      "41-42-43-44-45-46-47-48-49-50"
    '     ).Split({"-"}, StringSplitOptions.RemoveEmptyEntries)).ToArray
 
    ' Izquierda: Número "guía"
    ' Derecha: Número asociado
    Private ReadOnly NumberWheel As New Dictionary(Of Integer, Integer) From
      {
          {1, 21}, {2, 22}, {3, 23}, {4, 24}, {5, 25},
          {6, 26}, {7, 27}, {8, 28}, {9, 29}, {10, 30},
          {11, 31}, {12, 32}, {13, 33}, {14, 34}, {15, 35},
          {16, 36}, {17, 37}, {18, 38}, {19, 39}, {20, 40}
      }
 
#End Region
 
#Region " Constructors "
 
    ' De este Sub no hagas caso, es el constructor del Form.
    Public Sub New()
 
        ' This call is required by the designer.
        ' Add any initialization after the InitializeComponent() call.
        InitializeComponent()
 
        With Me
            ' Seteo algunas propiedades sin imortancia.
            .Size = New Point(320, 480)
            .StartPosition = FormStartPosition.CenterScreen
            ' Añado el control al Form.
            .Controls.Add(rtb)
        End With
 
    End Sub
 
#End Region
 
#Region " Event-Handlers "
 
    Private Sub ComboTest() Handles MyBase.Shown
 
        Me.DoCombos()
        Me.PrintCombos()
 
    End Sub
 
#End Region
 
#Region " Methods "
 
    ' La función que se encarga de desordenar y devolverte una combinación.
    ' By Elektro.
    'Friend Function GetRandomCombination(Of T)(ByVal [Collection] As IEnumerable(Of T),
    '                                          ByVal [Length] As Integer) As IEnumerable(Of T)
 
    '    Return (From Item As T In [Collection] 
    '            Order By ComboRandomizer.Next 
    '            Take [Length]).ToArray
 
    'End Function
 
    Friend Function GetRandomCombination(Of T)([Collection] As Dictionary(Of T, T),
                                               [Length] As Integer) As IEnumerable(Of T)
 
        Return (From Item As KeyValuePair(Of T, T) In [Collection]
                Select Item.Value
                Order By ComboRandomizer.Next
                Take [Length]).ToArray
 
    End Function
 
    Private Sub DoCombos()
 
        ' Añadir combinaciones a la lista, hasta que la lista tenga 'MaxComboLength' (80) elementos.
        Do Until Combos.Count = (MaxCombos - 1)
 
            ' Obtengo una combinación.
            Dim tmpCombo As Integer() = Me.GetRandomCombination(Of Integer)(NumberWheel, MaxComboLength)
 
            ' Ordeno los elementos de la combinación, de menos a mayor.
            Array.Sort(tmpCombo)
 
            ' Añado la combinación a la lista.
            Combos.Add(tmpCombo)
 
        Loop
 
        ' Ordeno los elementos de la lista, basandome en el orden de los elementos de cada Array.
        ' NOTA: Puede tener fallos al ordenar, no aseguro que el orden sea perfecto.
        Combos = (From Combo As Integer() In Combos Order By Convert.ToDecimal(String.Join("", Combo)) Ascending).ToList
        Combos = (From Combo As Integer() In Combos Order By Combo.First Ascending).ToList
 
        ' Además, creo utra lista Strings, para darle formato a cada combo numérico,
        ' y añadirle así un "0" a los números del "1" al "9" y que quede más bonito en la previsualización xD.
        Me.ComboStrings =
            (From Combo In Combos
             Select (String.Join(" | ", From Value As String In Combo
                                       Select If(Value.Length = 1, "0" & Value, Value)))).ToList
 
#If DEBUG Then
 
        ' El bloque de depuración.
        ' Este bloque entero es para testear el formato que le quieras dar.
        If Me.EnableDebug Then
 
            Dim sb As New System.Text.StringBuilder
 
            With sb
 
                For Index As Integer = 0 To (MaxCombos - 1)
 
                    sb.AppendLine(String.Format("Combo sin formato:"))
                    sb.AppendLine(String.Join(", ", Combos(Index)))
                    sb.AppendLine()
                    sb.AppendLine(String.Format("Combo con formato:"))
                    sb.AppendLine(String.Join(", ", ComboStrings(Index)))
 
                    MessageBox.Show(sb.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                    sb.Clear()
 
                Next Index
 
            End With
 
        End If
 
#End If
 
    End Sub
 
    Private Sub PrintCombos()
 
        ' Muestro los Combos en el control.
        With Me.rtb
 
            .SuspendLayout()
            For Each Combo As String In Me.ComboStrings
                .AppendText(Combo)
                .AppendText(Environment.NewLine & New String("-", Combo.Length) & Environment.NewLine)
            Next Combo
            .ResumeLayout()
 
            .Select(0, 0)
 
        End With
 
    End Sub
 
#End Region
 
End Class