title: Extract First Name Middle Name and Last Name Using VBA
body: <p>I Have come close to finding the solution but not completely.  I want to separate the first, middle (if it exists) and last names in separate name field. The data &amp; current results:</p>
  
  <pre><code>Data             FName           LName
  Doe,John         John            Doe
  Doe,John A       John A          Doe
  Doe,John Art, Jr John Art, Jr    Doe
  </code></pre>
  
  <p>The Code:</p>
  
  <pre><code>First_Name: Mid([Client Name],InStr([Client Name],",")+1)
  Last_Name: Left([Client Name],InStr([Client Name],",")-1)
  </code></pre>
  
  <p>As you can see, I am not focused on the middle name right now, but would like to capture that as well in a MName for the middle name/initial.  I have found many options on the web getting close to this but none which accomplishes the task of having the data look like:</p>
  
  <pre><code>Data             FName         MName      LName
  Doe,John         John                     Doe
  Doe,John A       John          A          Doe
  Doe,John Art, Jr John          Art        Doe Jr
  Doe,John A, Jr   John          A          Doe JR
  </code></pre>
  
  <p>Thanks</p>