codice:
Dim strPeso As String
Dim sngMemTime As Single
   
   'Invio quello che c'è tra gli apici "STRINGA" -> inserisci la tua stringa
   frmNomeForm!nomeOggettoMsComm.Output = "STRIGA" & vbCr

   'Genero un piccolo ritardo affinchè il device abbia il tempo di rispondere
   sngMemTime = Timer
   While Timer < sngMemTime + 500 '500 sono i millisecondi di attesa (dipende dal device)
      If Timer < sngMemTime Then sngMemTime = Timer
   Wend

   'Sulla variabile strPeso trovo la risposta del device...
   strPeso = frmNomeForm!nomeOggettoMsComm.Input


Ciao.