Dim k As Integer
    For i = 0 To UBound(Structure, 1)
        If Structure(i, 0) = 1 Then
            sp(k) = i
            k = k + 1
            For j = 0 To UBound(Structure, 1)
                If Structure(j, 0) = 2 And Structure(i, 1) = Structure(j, 2) Then
                    sp(k) = j
                    k = k + 1
                    For n = 0 To UBound(Structure, 1)
                        If Structure(n, 0) = 3 And Structure(j, 1) = Structure(n, 2) Then
                            sp(k) = n
                            k = k + 1
                            
                        For m = 0 To UBound(Structure, 1)
                            If Structure(m, 0) = 4 And Structure(n, 1) = Structure(m, 2) Then
                                sp(k) = m
                                k = k + 1
                                For b = 0 To UBound(Structure, 1)
                                If Structure(b, 0) = 5 And Structure(m, 1) = Structure(b, 2) Then
                                sp(k) = b
                                k = k + 1
                                For v = 0 To UBound(Structure, 1)
                            If Structure(v, 0) = 6 And Structure(b, 1) = Structure(v, 2) Then
                                sp(k) = v
                                k = k + 1
                                For c = 0 To UBound(Structure, 1)
                            If Structure(c, 0) = 7 And Structure(v, 1) = Structure(c, 2) Then
                                sp(k) = c
                                k = k + 1
                                For x = 0 To UBound(Structure, 1)
                            If Structure(x, 0) = 8 And Structure(c, 1) = Structure(x, 2) Then
                                sp(k) = x
                                k = k + 1
                                For Z = 0 To UBound(Structure, 1)
                            If Structure(Z, 0) = 9 And Structure(x, 1) = Structure(Z, 2) Then
                                sp(k) = Z
                                k = k + 1
                                For p = 0 To UBound(Structure, 1)
                            If Structure(p, 0) = 10 And Structure(Z, 1) = Structure(p, 2) Then
                                sp(k) = p
                                k = k + 1
                            End If
                        Next
                            End If
                        Next
                            End If
                        Next
                            End If
                        Next
                            End If
                        Next
                            End If
                        Next
                            End If
                        Next
                        End If
                    Next
                End If
            Next
        End If
    Next