Ana esta es una función que yo utilizo para dar la vuelta a un campo que contiene apellidos y nombre, pero en mi caso yo tengo una coma despues del segundo apellido que me sirve para saber cual es el nombre.Con un poco de imaginación y trabajando algo, podrás adaptar esto que sigue:
Function NombApe(NOMBRE As String) As String
Dim NOMAPE As String
For I = 1 To 35
If Mid(NOMBRE, I, 1) = "," Then
If Mid(NOMBRE, I + 1, 1) = " " Then
NOMAPE = Trim(Mid(NOMBRE, I + 2, 35 - (I + 2)))
Else
NOMAPE = Trim(Mid(NOMBRE, I + 1, 35 - (I + 1)))
End If
NOMAPE = NOMAPE + " " + Mid(NOMBRE, 1, I - 1)
Exit For
End If
Next I
NombApe = NOMAPE
End Function
Espero sepas algo de VB y entiendas esto.
El que da lo que tiene, no está obligado a dar más..... Saludos desde Cádiz