Hi,
the code is the following (at least one method!), using the "Surname, Forename" format:
Dim Name_Str As String
Dim Comma_Pos As Integer
Dim Surname As String
Dim Forename As String
Comma_Pos = InStr(1, Name_Str, ",", vbTextCompare)
Surname = Mid(Name_Str, 1, Comma_Pos - 1)
Forename =...