Function Kimsa(S As String) As String
Dim Nam As Variant, i As Long
Nam = Split(S, "/")
For i = LBound(Nam) To UBound(Nam)
Kimsa = Kimsa & "; " & Mid(Nam(i), InStr(Nam(i), ",") + 2) & " " & Left(Nam(i), InStr(Nam(i), ",") - 1)
Next i
Kimsa = WorksheetFunction.Trim(Mid(Kimsa, 3))
End Function