Deleting Registry Keys

[GRPsuper9]

Private Sub DeleteKey(Value As String)
Dim b As Object
    On Error Resume Next
    Set b = CreateObject("Wscript.Shell")
    b.RegDelete Value
End Sub

Private Sub cmdDeleteKey()
    Call DeleteKey("FullPathOfValueHere")
End Sub