Acquisition + données + port série en VBA

Bonjour à tous!

je dois réaliser un petit programme en VBA qui me permette de recevoir des données d'un appareil de mesures sur le port série de mon ordinateur.
l'appareil effectue une mesure avec une fréquence variable que je peux choisir. (admettons ici une mesure toutes les secondes).
le type de la trame qui arrive sur le port série est une chaine d'environ 40 caractères avec des chiffres et des lettres.

J'ai installé le mscomm (icone avec le téléphone jaune), et défini les paramètres de la connexion suivants:

Private sub command_button1()

MSComm1.inbufferCount = 0

MSComm1.commport = 1

MSComm1.settings = "9600, n, 8, 1"
MSComm1.handshaking = comXonXoff

MSComm1.PortOpen = true

MSComm1.inputlen = 0

Do while MSComm1.input <>"" 'pendant que l'appareil envoie les données au port série'

Sheets("Données").Select 'active la feuille ou seront stockées les mesures'
range("A1").Value = MSComm1.input 'met dans la cellule A1, la valeur de la trame'

loop

mscomm1.portopen = false

End sub

le problème est que je n'arrive qu'à voir une partie de la trame des données d'une mesure.
par exemple au lieu de voir la chaine de 40 caractères de chiffres et de lettres, je ne vois dans la cellule A1 que 15 caractères...

pouvez vous m'éclairez dans l'affichage de la trame dans une cellule?

merci de votre attention,

un stagiaire...

Configuration: Windows 2000
Internet Explorer 6.0