Cómo capturar los datos de una balanza electrónica a mi pc via rs232

Private Sub MSComm_OnComm()
'Procesa pesa 20 GRIS IQ355
Dim Bufer As Integer
Dim Codigo As String
Dim xNumi As Long
     'Si el puerto sigue abierto
 If Date > HoyEs Then PuertListo           'Abre otro archivo
   lblFecha(0).Caption = Format(Date, "short date")
'para permitir intervension
    DoEvents
  lblAHora(0).Caption = Format(Now, "long time")
  'Lee solo los byte del buffer del com1
       Codigo = MSComm.Input
     Bufer = InStr(Codigo, vbLf)          'Final del string un line feed =10
     '.......................
 ''''''
   If Bufer = 0 Then            'CalGris Codigo
 Cadena = Cadena & Codigo
 Else
 Cadena = Cadena & Left(Codigo, Bufer - 1)
         '
         If Len(Cadena) = 13 Then SE1500 Cadena
   '.......... Muestra el peso en la pantalla  ............
 Cadena = ""
 lblPeso(0).Caption = Format(Pesso, "#####0")
     Inicio = Now        'Toma el tiempo inicial para el retardo
 End If
 'Verifica si el sw en inifile esta en cero=MANTENIMIENTO
 'Si el mes corriente es mayor que el guardado
If Month(Now) > Val(LeerArchivoIni(ElIniFile, "MANTENIMIENTO", "BACKUP", "")) Then
             Call IraCompactar
    retValue = SalvaArchivoIni(ElIniFile, "MANTENIMIENTO", "BACKUP", Month(Now))
              End If
                      
  MSComm.InBufferCount = 0           'Limpia el buffer de recepcion
  
End Sub