1:        btc = New Sockets.BluetoothClient()
2:        btc.Connect(EP) 'Verbindung zum vorher eingerichteten 
' Bluetoothendpoint
3:        Dim ss As System.Net.Sockets.NetworkStream
4:        ss = btc.GetStream
5:        Dim b As Integer = 1
6:        While b <> -1
7:            Try
8:                b = ss.ReadByte
9:                MsgBox(b)
10:           Catch ex As Exception
11:               MsgBox(ex.Message)
12:           End Try
13:       End While