Windows Registry Anahtar Ekleme ve Silme

Sub RegEdit()
    Dim objShell, strRoot, strRegRead, strNew
    Dim strRead, strDelete, strCreate
    Err.Number = 0
    strRoot = "HKCR\lnkfile\"
    strNew = strRoot & "IsNotShortCut"
    strRegRead = strRoot & "IsShortCut"

    Set objShell = CreateObject("WScript.Shell")
    On Error Resume Next
    strRead = objShell.RegRead(strRegRead)
    If Err.Number >= 0 Then
        strCreate = objShell.RegWrite(strNew, "", "REG_SZ")
        strDelete = objShell.RegDelete(strRegRead)
    End If
    strCreate = Null
    strDelete = Null
End Sub