ReturnPermutation

Function ReturnPermutation(items As Variant) As Variant
    Dim k As Long, i As Long, result As String, temp As String, delimiter As String

    delimiter = "|"

    For k = LBound(items) To UBound(items)
        For i = k To UBound(items)
            temp = temp & items(i)
            result = result & temp & delimiter
        Next i
        temp = ""
    Next k

    ReturnPermutation = Split(result, delimiter)

End Function