Çözüldü Permütasyon Hesabı

Sub GetString()
    Dim xStr As String
    Dim FRow As Long
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xStr = Application.InputBox("Metni giriniz.:", "Hesaplama", , , , , , 2)
    If Len(xStr) < 2 Then Exit Sub
    If Len(xStr) >= 4 Then
        MsgBox "Çok fazla permütasyon var!", vbInformation, "Hesaplama"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        FRow = 1
        Call GetPermutation("", xStr, FRow)
    End If
    Application.ScreenUpdating = xScreen
End Sub
Sub GetPermutation(Str1 As String, Str2 As String, ByRef xRow As Long)
    Dim i As Integer, xLen As Integer
    xLen = Len(Str2)
    If xLen < 2 Then
        Range("A" & xRow) = Str1 & Str2
        xRow = xRow + 1
    Else
        For i = 1 To xLen
            Call GetPermutation(Str1 + Mid(Str2, i, 1), Left(Str2, i - 1) + Right(Str2, xLen - i), xRow)
        Next
    End If
End Sub

Option Explicit
Sub Permutation()
    Dim harflersayılar() As String
    Dim Sonuclar() As String
    Dim olasıklar As Long
    Dim i As Long, j As Long
    Dim duzenle As Range
Set duzenle = Range("A1")
olasıklar = 26 * 26 * 9
ReDim harflersayılar(1 To olasıklar, 1 To 3)
ReDim Sonuclar(1 To olasıklar * 3, 1 To 2)
For i = 1 To olasıklar Step olasıklar / 26
    For j = 1 To olasıklar / 26
        harflersayılar(i - 1 + j, 1) = Chr(Int(i / (olasıklar / 26)) + 65)
    Next j
Next i
For i = 1 To olasıklar Step 9
    For j = 1 To 9
        harflersayılar(i - 1 + j, 2) = Chr(Int(i / 9) Mod 26 + 65)
    Next j
Next i
For i = 1 To olasıklar
    harflersayılar(i, 3) = (i - 1) Mod 9 + 1
Next i
For i = 1 To olasıklar
    Sonuclar(i, 1) = harflersayılar(i, 1) & harflersayılar(i, 2) & harflersayılar(i, 3)
Next i
For i = 1 + olasıklar To olasıklar * 2
    Sonuclar(i, 1) = harflersayılar(i - olasıklar, 1) & harflersayılar(i - olasıklar, 3) & harflersayılar(i - olasıklar, 2)
Next i
For i = 1 + olasıklar * 2 To olasıklar * 3
    Sonuclar(i, 1) = harflersayılar(i - olasıklar * 2, 3) & harflersayılar(i - olasıklar * 2, 1) & harflersayılar(i - olasıklar * 2, 2)
Next i
duzenle.EntireColumn.Clear
Set duzenle = duzenle.Resize(rowsize:=UBound(Sonuclar, 1))
duzenle = Sonuclar
End Sub