scusami per la poca chiarezza:
quello che ho già funzionante e un programma di un solo modulo che legge dati da Bluetooth
Sub AStream_NewData (Buffer() As Byte)
DatiLetti=(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
LogMessage(DatiLetti)
End Sub
Sub LogMessage( Contenuto As String )
'ToastMessageShow("Lettura dal " & MyDeviceName & Contenuto,False)
ToastMessageShow(Contenuto,False)
End Sub