Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
If Id == "3C:71:BF:AB:0E:3A" Then
Log("Found: " & Name)
Log("TAK_device: " & Id)
ConnectedName = Name
manager.StopScan
manager.Connect2(Id, False) 'disabling auto connect can make the connection quicker
End If
End Sub