split name from prefixes

**WCJanssen** · 12-21-2010, 02:09 PM

Hi,

I'm looking for a code to seperate a name in a userform textbox from it's prefixes and copy both to different textboxes. So, if the user enters the (Dutch) name "van den berg" the code should copy "van den" to one textbox and "berg" to another. Any help appreciated; thanks in advance.

**Bob Phillips** · 12-21-2010, 02:21 PM

Maybe

    pos = InStrRev(txtName.Text, " ")
    txtSurname.Text = Mid$(txtName.Text, pos + 1, Len(txtName.Text) - pos)
    txtForename.Text = Replace(txtName, " " & txtSurname.Text, "")