Change Registries

[Sir Loin]

I am in the middle of coding a program that changes the name of the Recycle Bin, here is the code I have so far.

Private Sub Command1_Click()
On Error Resume Next
Dim REGIS As IWshShell_Class
Set regis = New IWshShell_Class
regis.RegWrite "HKCU\software\microsoft\windows\currentversion\explorer\clsid" _ 
& "\{645FF040-5081-101B-9F08-00AA002F954E}\(Default)", Text1.Text, "REG_SZ"
End Sub

The problem is it doesn't change "(Default)" it makes a new one. How should I fix it?

Thanks,
Sir Loin