You actually mentioned the solution in the title of your post... the split function. Here's a simple example of how to get the pieces you need.
sFullText = "asdf df, Test Firm" ' this is the text from your webelement
arrTemp = split(sFullText, ",") ' split on the comma between name and firm, returns an array
arrNames = split(arrTemp(0), " ") ' split the name on spaces... only works if there are two names
sCompany = trim(arrTemp(1))
sFirstName = trim(arrNames(0))
sLastName = trim(arrNames(1))