String.Format("{0:00}, {1:00}, {2:00}

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Dim Elementos As IEnumerable(Of Integer) = {1, 4, 5, 8, 33, 44, 45, 68, 98}
        Dim EleX As Integer = 0
        Dim EleX1 As Integer = 0
        Dim EleX2 As Integer = 0
        Dim EleX3 As Integer = 0
        Dim EleX4 As Integer = 0
        ListBox4.Items.Clear() 'Limpia el ListBox
        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
            For I2 As Integer = EleX To Elementos.Count - 1
                For I3 As Integer = EleX To Elementos.Count - 2
                    For I4 As Integer = EleX To Elementos.Count - 3
                        For I5 As Integer = EleX To Elementos.Count - 4
                            For I6 As Integer = EleX To Elementos.Count - 5
                                If Elementos(I2) <> Elementos(I3) And Elementos(I3) <> Elementos(I2) < Elementos(I4) < Elementos(I5) Then
                                    ListBox4.Items.Add(String.Format(Format1, Elementos(I1), Elementos(I2), Elementos(I3), Elementos(I4), Elementos(I5), Elementos(I6)))
                                End If
 
                            Next
                        Next
                    Next
                Next
            Next
        Next
        MessageBox.Show("Combinaciones: " & ListBox4.Items.Count)
    End Sub

 '//QUITAR ELEMENTOS REPETIDOS --------------------funciona bien con otra funcione con esta me da error
        Dim nuevaLista As New List(Of Integer)
        For Each elemento In ListBox4.Items
            nuevaLista.Add(elemento)
        Next
 
        nuevaLista = nuevaLista.Distinct.ToList() 'elimina repetidos
        nuevaLista.Sort() 'Ordena la lista
        ListBox4.Items.Clear() 'limpia el listbox (no funciona con DataSource)
        'ListBox4.DataSource= Nothing 'usar solo si es se usó datasource para llenar el listbox
        For Each Elemento As String In nuevaLista
            ListBox4.Items.Add(Elemento)
        Next

'****************combinaciones FUNCIONA DE p**a MADRE 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim input As Integer() = (Result1)
 
        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
 
        Me.ListBox8.Items.AddRange(output.Cast(Of Object).Distinct().ToArray)
 
    End Sub

  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

'****************combinaciones FUNCIONA DE p**a MADRE
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        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
 
        Me.ListBox8.Items.AddRange(output.Cast(Of Object).ToArray)