ok, grazie per l'aiuto.
Ora però è sorto un altro problema.
Dopo un determinato evendo hardware (esterno al programma) sulla seriale ricevo la combinazione " ;0802? "
Il problema è che non riesco a fare un confronto...

Ad esempio

Private Sub Form_Load()
If Peso = ";0802?" Then
led1.BackColor = vbGreen
Else
led1.BackColor = vbRed
End If
End Sub

alla ricezione della stringa il le1 non cambia colore

(led 1 è una semplice shape circolare)

Dove sbaglio?