Sub VarIndTest()
m = Array("m", "p", "f", "n")
n = UBound(m) - LBound(m) + 1
k = 3
wdh = True
Sheets.Add
For i = 1 To IIf(wdh, n ^ k, Application.Permut(n, k))
arr = VarIndex(n, k, i, wdh)
For p = 0 To UBound(arr)
Cells(i, p + 1) = WorksheetFunction.Index(m, arr(p))
Next p
Next i
End Sub