En Français facile:
Une msgbox n'affiche QUE 1024 characteres:
aaaa = 4 caractères
Pour en afficher d'avantage:
Soit tu utilises plusieurs messages box de 1024 chars chacune.
Soit tu construits une messagebox faite maison que tu appelleras en lui donnant l'argument que tu veux
Soit tu utilises les popup de l'objet Windows script host, qui lui n'est pas limité à 1024.
La dernière solution étant la plus simple:
Dans le sub qui va afficher la messagebox;
juste après tes dim et avant le code tu écris:
Set objshell = createobject("Wscript.Shell")
Puis ta msgbox sera appellée par la commande:
Objshell.popup msg, 0,"titre",0
Donc tu remplaces msgbox(msg) par
Objshell.popup msg, 0,"titre",0