If reading.IsConnected = True Then
BSSID = reading.BSSID
SSID = reading.SSID
If SSID.Contains("my-button") Then
btnWrite.Visible = True
BSSID = BSSID.ToUpperCase
BSSID = BSSID.Replace(":","")
Log(BSSID)
Starter.kvs.Put("ButtonMAC",BSSID)
ButtonMac = BSSID
Else
btnWrite.Visible = False
End If