Ciao,
l'ultima versione del codice che ho provato è questo:

Private Sub MSComm1_OnComm()
Dim Pos As Integer
Dim RxBuffer As String
Dim Rx As String
Rx = MSComm1.Input
RxBuffer = RxBuffer & Rx 'concateno i caratteri arrivati


Pos = InStr(RxBuffer, "$")
RxBuffer = Mid(RxBuffer, Pos+1,27) 'la stringa con i caratteri utili

text5 = Mid(RxBuffer,1,8)' visualizzo il peso netto


End Sub

Riesco a visualizzare qualcosa se imposto RThreshold=31 (se lo imposto a 1 credo che continui a lavorare su una stringa troppo corta), ma ho sempre il problema che non visualizza i caratteri che mi aspetterei di trovare nella text5.