Sub test()
Call C3("16, 4, 1")
End Sub
Sub C3(s$)
Dim td$(), tf$(1 To 6)
td() = Split(s, ",")
tf(1) = td(0) & ", " & td(1) & ", " & td(2)
tf(2) = td(0) & ", " & td(2) & ", " & td(1)
tf(3) = td(1) & ", " & td(0) & ", " & td(2)
tf(4) = td(1) & ", " & td(2) & ", " & td(0)
tf(5) = td(2) & ", " & td(0) & ", " & td(1)
tf(6) = td(2) & ", " & td(1) & ", " & td(0)
End Sub