Dim msg As [String] = [String].Empty
        Dim valutazione() As String
        Dim delimStr As String = "|"
        Dim delimiter As Char() = delimStr.ToCharArray()

       msg = Encoding.ASCII.GetString(bytes, 0, bytes.Length) 
       valutazione = msg.Split(delimiter, StringSplitOptions.None)

       If UBound(valutazione) > 1 Then ' c'è un indicazione di importanza sull'ultimo elemento splittato
                    Select Case UCase(valutazione(2))
                        Case "I"
                            If Form_Alert.ShowDialog() = Windows.Forms.DialogResult.OK Then
                                Send("Messaggio da " + valutazione(0) + " - letto da : " + NomeComputer)
                            Else
                                Send("Messaggio da " + valutazione(0) + " - ignorato da : " + NomeComputer)
                            End If
                    End Select
        End If