La configuración del mscomm1 en el proyecto es la siguiente:
    With MSComm1
        .Settings = "4800,e,7,1"
        .InputLen = 0
        .InputMode = comInputModeText
        .RThreshold = 17
        .NullDiscard = False
        .Handshaking = 0
    End With
El envío de datos es continuo, a no ser que se haya cambiado el valor de fábrica desde el lector digital.
en el evento MSComm1_OnComm()
Select Case MSComm1.CommEvent
        Case comEvReceive      
            buffer = MSComm1.Input
            codlectura = Mid(lectura, 2, 1)    
            txtpesada.Text = Mid(buffer, 6, 5)
        End Select
codlectura sirve para saber cuando el peso está oscilando (creo que era x)
cuando está estable =q
puedes utilizarlos para leer el peso correcto.
a partir de aquí es ya lo que necesites.
Con esto he hecho un programa que lleva ya funcionando mucho tiempo sin problemas.
Un saludo.