Const cDevices As String = "SOFTWARE\Widcomm\BTConfig\Devices"
Dim sFullAdr As String = sAdr.Substring(0, 2) & ":" & sAdr.Substring(2, 2) & ":" & sAdr.Substring(4, 2) & ":" & sAdr.Substring(6, 2) & ":" & sAdr.Substring(8, 2) & ":" & sAdr.Substring(10, 2)
Registry.LocalMachine.DeleteSubKeyTree(cDevices & "\" & sFullAdr)
it runs ;-)
Greets Peter