La copie de code est la suivante:
functionnew_str (str)
iFinstr (str, chr (34)) <> 0andstr <> "" puis
str_split = Split (Str, Chr (34))
i = 1
str_s = ""
forj = 0Toubund (str_split) -1
ifimod2Then
str_s = str_s & str_split (j) & "" & str_split (j + 1)
autre
str_s = str_s & str_split (j) & "" & str_split (j + 1)
endire
i = i + 1
suivant
finition de fin