Code for Full Name To Seperate into First, Middle, And Last VBA

I have this formula that I need in every cell in the column.
The formula Im using is to seperate First Name from Full Name. Im also going to be using this to seperate the Middle Name and the Last Name.
My formula for the First Name is:
=TRIM(IF(COUNTIF(A2,"* *"),LEFT(A2,FIND(" ",A2)),""))
My Middle Name code is:
=TRIM(SUBSTITUTE(SUBSTITUTE(A2,B2,""),D2,""))
And My Last Name Code is:
=TRIM(RIGHT(SUBSTITUTE(A2," ",REPT(" ",LEN(A2))),LEN(A2)))

Is there a VBA Code that code could do this for me?
Or is this a different way to seperate the names from one cell?

That would work, but I need it so I can just click on a macro. I have a main macro that follows through a lot of different subs. So I am trying to add something to do exactly what that code does, except in a macro so I do not have to type in the formula each time and drag it down the column. I have the Full Name in column A and it needs to seperate it to First Name in column B, Middle Name in column C, and Last Name in column D. Thank you for your help though.

Thank you, that works perfectly. I have been looking for something like this for two weeks now.