Daniel,
If all of your names have the "LastName, FirstName1 & FirstName2" syntax, you could create an array of the value, splitting each value by space:
myArray = Split(TAO_NAME, " ")
Then having all of your elements in the array, just rearrange them and use only the characters you need:
Left(myArray(1), 1) & " & " & Left(myArray(3), 1) & " " & Left(myArray(0),(Len(myArray(0)) - 1))
I have not tested this code, so it is quite possible I forgot a paranthesis or comma here or there.
Hope this helps!
Best,
Chris B.