Sayılardan kombinasyon yapmak

[muratyildirim43]

Toplamda 5 rakamdan oluşan 10 haneli kombinasyonlari bulmak istiyorum yardımcı olabilirseniz memnun olurum.
Örneğin;5533117799,5511339977,5588996633,
Gibi 55 ve 33 ile başlayan her biri bu şekilde 2ser aynı sayıdan oluşan kombinasyonları nasıl bulabilirim

 

[veyselemre]

Sub test()
    Dim i, ii, iii, iv, v, sat
    Columns(1).ClearContents
    For i = 1 To 9
        For ii = 0 To 9
            If i <> ii Then
                For iii = 0 To 9
                    If i <> iii And ii <> iii Then
                        For iv = 0 To 9
                            If i <> iv And ii <> iv And iii <> iv Then
                                For v = 0 To 9
                                    If i <> v And ii <> v And iii <> v And iv <> v Then
                                        sat = sat + 1
                                        Cells(sat, 1).Value = i & i & ii & ii & iii & iii & iv & iv & v & v
                                    End If
                                Next v
                            End If
                        Next iv
                    End If
                Next iii
            End If
        Next ii
    Next i
End Sub

 

[muratyildirim43]

Böyle bir şifre koymayla yanlış bir karar verdiğimin farkına geçte olsa varmış oldum ama sonuçta bu da bir tecrübe nihayetinde