Does it have to be in a single textbox? Could you not impose some order i.e. Surname, Firstname, DOB, subject ...... ?
If not if may be easier to split the text into an array then work on the individual items.
dim vals() as string
vals = TextBox2.text.split(" ")
'vals will now contain an array of strings with val(0) being Surname and vals(1) being Firstname.