It's very simple.If you know some basic String Functions you can do it easily.Check this code :
Dim s As String = "BH01803502625DUNCAN JOHNNY 03092010M362340313"
MessageBox.Show(s.Substring(0, s.IndexOf(" ")) & " and " & s.Substring(s.LastIndexOf(" ") + 1))
I hope it will solve your problem. :)