Перемешивание чисел

Public Class Form1
    'на форме TextBox1 и кнопка Button1
    Dim c1, c2, c3, nabor_cifr, stroka, stroka_temp As String
    'кнопка для запуска поиска
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        nabor_cifr = TextBox1.Text 'считываем набор цифр
        stroka_temp = nabor_cifr
        stroka = nabor_cifr
        'циклический сдвиг влево
        For c As Integer = 1 To Len(nabor_cifr) - 1
            Sdvig_rite()
            stroka_temp = stroka_temp & " " & stroka
            nabor_cifr = Mid(nabor_cifr, 2, Len(nabor_cifr) - 1) & Mid(nabor_cifr, 1, 1)
            stroka = nabor_cifr
        Next
        'строку в массив с разделением на слова
        Dim Arry() As String = stroka_temp.Split(" ")
        'удаляем повторяющиеся комбинации
        Dim NewArry As IEnumerable(Of String) = Arry.Distinct()
        'выводим что получилось
        MsgBox(Join(NewArry.ToArray, ", "))
    End Sub
    'сдвигаем по очереди каждую цифру вправо по позициям
    Sub Sdvig_rite()
        For i As Integer = 1 To Len(nabor_cifr)
            c1 = Mid(nabor_cifr, i, 1)
            Select Case i
                Case 1 'первая позиция
                    c2 = Mid(nabor_cifr, 2, Len(nabor_cifr) - 1)
                Case Len(nabor_cifr) 'последяя позиция
                    c2 = Mid(nabor_cifr, 1, Len(nabor_cifr) - 1)
                Case Else 'любая в середине
                    c2 = Mid(nabor_cifr, 1, i - 1) & Mid(nabor_cifr, i + 1, Len(nabor_cifr) - i + 1)
            End Select
            c3 = c1 & c2
            stroka = stroka & " " & c3
            For n As Integer = 1 To Len(c2)
                If n > i Then
                    c3 = Mid(c2, 1, n - 1) & c1 & Mid(c2, n, Len(c2) - n + 1)
                    stroka = stroka & " " & c3
                End If
            Next
            c3 = c2 & c1
            stroka = stroka & " " & c3
        Next
    End Sub
End Class

Imports Microsoft.Office.Interop
 
Public Class Form1
    'на форме TextBox1 и кнопка Button1
    Dim c1, c2, c3, nabor_cifr, stroka, stroka_temp As String
    ' Excel
    Dim oExcel As Excel.Application
    Dim oBook As Excel.Workbook
    Dim oSheet As Excel.Worksheet
 
    'кнопка для запуска поиска
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        nabor_cifr = TextBox1.Text 'считываем набор цифр
        stroka_temp = nabor_cifr
        stroka = nabor_cifr
        'циклический сдвиг влево
        For c As Integer = 1 To Len(nabor_cifr) - 1
            Sdvig_rite()
            stroka_temp = stroka_temp & " " & stroka
            nabor_cifr = Mid(nabor_cifr, 2, Len(nabor_cifr) - 1) & Mid(nabor_cifr, 1, 1)
            stroka = nabor_cifr
        Next
        'строку в массив с разделением на слова
        Dim Arry() As String = stroka_temp.Split(" ")
        'удаляем повторяющиеся комбинации
        Dim NewArry As IEnumerable(Of String) = Arry.Distinct()
        'выводим что получилось
        oExcel = New Excel.Application
        oBook = oExcel.Workbooks.Add 'добавляем в Excel новую книгу
        oSheet = oBook.Worksheets(1)
        oExcel.Visible = True 'показываем объект Excel
        'заполняем поля 
        For i As Integer = 0 To NewArry.Count - 1
            c1 = "B" & (i + 1).ToString
            oSheet.Range(c1).Value = NewArry(i)
        Next
        oExcel = Nothing
 
        'MsgBox(Join(NewArry.ToArray, ", "))
    End Sub
    'сдвигаем по очереди каждую цифру вправо по позициям
    Sub Sdvig_rite()
        For i As Integer = 1 To Len(nabor_cifr)
            c1 = Mid(nabor_cifr, i, 1)
            Select Case i
                Case 1 'первая позиция
                    c2 = Mid(nabor_cifr, 2, Len(nabor_cifr) - 1)
                Case Len(nabor_cifr) 'последяя позиция
                    c2 = Mid(nabor_cifr, 1, Len(nabor_cifr) - 1)
                Case Else 'любая в середине
                    c2 = Mid(nabor_cifr, 1, i - 1) & Mid(nabor_cifr, i + 1, Len(nabor_cifr) - i + 1)
            End Select
            c3 = c1 & c2
            stroka = stroka & " " & c3
            For n As Integer = 1 To Len(c2)
                If n > i Then
                    c3 = Mid(c2, 1, n - 1) & c1 & Mid(c2, n, Len(c2) - n + 1)
                    stroka = stroka & " " & c3
                End If
            Next
            c3 = c2 & c1
            stroka = stroka & " " & c3
        Next
    End Sub
 
End Class