Die Daten aus der AS/400 sind dann wohl in der Länge des jeweiligen Feldes mit Leerzeichen aufgefüllt.
Wenn du die Leerzeichen dann nicht benötigst musst du diese in VBA mit RTRIM entfernen.