Private Sub Manager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
Log("Found: " & Name & ", " & Id & ", RSSI = " & RSSI & ", " & AdvertisingData) 'ignore
Dim MAC As String = ""
#if B4A
MAC = Id
#else if B4i
If (AdvertisingData.ContainsKey("kCBAdvDataManufacturerData")) And (Name == DeviceExpectedName) Then
Dim s As String = AdvertisingData.Get("kCBAdvDataManufacturerData")
Dim data_raw() As String = Regex.Split(", ", s.Replace("}","").Replace("{", ""))
Dim mac_string As String = Regex.Split(" = ", data_raw(1))(1).Trim
Dim BC As ByteConverter
Dim data() As Byte = BC.HexToBytes(mac_string.SubString(2))
For Each b As Byte In data
MAC=MAC & Chr(b)
Next
End If
#End If
If MAC == DeviceToConnect Then
ConnectedName = Name
'Log("BLE connecting")
#if B4A
manager.Connect2(Id, False) 'disabling auto connect can make the connection quicker
#else if B4I
manager.Connect(Id)
#end if
manager.StopScan
End If
End Sub