Reversing a "First Middle Last" Name to "Last, First Middle" Name Format

[snb]

I'd prefer:

=MID(TEXT(A2,"@ @"),SEARCH(" ",A2)+1,LEN(A2))

In VBA

function F_snb(c00)
  F_snb=split(c00)(1) & " " & split(c00)(0)
end function

in Cell B2

=F_snb(A2)