Function Dividi(V_String As String) As String
For X = 1 To Len(V_String)
If Asc(Mid(V_String, X, 1)) = Asc(UCase(Mid(V_String, X, 1))) And Mid(V_String, X, 1) <> " " And Mid(V_String, X, 1) Like "[A-Z]" Then
    V_String_Finale = V_String_Finale & ";" & Mid(V_String, X, 1)
Else
    V_String_Finale = V_String_Finale & Mid(V_String, X, 1)
End If
Next X
Dividi = V_String_Finale
End Function