Reversing some contents of cell

[Bob Phillips]

Hi, bassman! Here's a little something for you to try:
[vba]Sub UberReverse()
Dim ary1, ary2, ary3, Temp As String
Const OrigStr$ = "Morales Contido, Louis"
Temp = Replace(OrigStr, ",", "")
ary1 = Split(Temp, " ")
ary2 = Split(ary1(0), " ")
ary3 = Split(ary1(1), ",")
MsgBox ary3(0) & " " & ary1(0) & ", " & ary1(2)
End Sub[/vba]

Why the extra arrays?

[vba]

Sub UberReverse()
Dim ary1
Const OrigStr$ = "Morales Contido, Louis"
ary1 = Split(Replace(OrigStr, ",", ""), " ")
MsgBox OrigStr$ & vbNewLine & ary1(1) & " " & ary1(0) & ", " & ary1(2)
End Sub
[/vba]