Italian Seriale/usb intercettare caratteri

Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    valoreRX = asc(msg)
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Dim Pos As Int
    Pos = msg.IndexOf(strTuoCarattere)
    If Pos > -1 Then
        ' trovato.
        ' qui, usando varie funzioni di stringa
        ' prelevi i caratteri successivi.
        ' Ad esempio, devi eliminare i caratteri precedenti:
        msg = msg.SubString(msg, Pos + 1)
        ' Verificare se la lunghezza rimanente è di almeno 6 caratteri
        if msg.Lenght >= 6 Then
        ' e così via.
        ' Potrebbe servirti anche una variabile globale
        ' nel caso in cui msg sia lunga ad esempio 2
        ' i 4 successivi li riceverai nel prossimo msg
        ' quindi, prima di questo blocco "If Pos...
        ' userai:
        If mResto > 0 then
             AltriDaLeggere = SubString2(msg, 0, mResto)
        ' etc
    End If
End Sub

 Dim c As String = Chr(174)
Log(c)
Log(Asc(c))

Sub AStream_NewData (Buffer() As Byte)
    Dim Evt As Int
    Dim msg As String
    Dim ValEvento As String
    Dim ValRX As String
    Dim ValRX1 As String
    Dim ValRX2 As String
   
    ValRX = BytesToString(Buffer,0,Buffer.Length,"iso-8859-1")
    msg = ValRX
    If mResto > 0 Then
        msg = msg.SubString2(0, mResto)
        mResto = 0
        ValRX2 = msg
        ValEvento = ValRX1 & ValRX2   
    End If   
   
    Evt = msg.IndexOf(Chr(174))
    If Evt > -1 Then
        msg = msg.SubString(Evt+1)

        If msg.Length >= 6 Then
            msg = msg.SubString2(0,6)
            mResto = 0
            ValEvento = msg
            ValRX1 = ""
            ValRX2 = ""
        Else
            mResto = 6 - msg.Length
            ValRX1 = msg           
        End If
    End If
End Sub