HKEY CURRENT USER - open in MODI

Option Explicit


Const strKey As String = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\MODI\MDI Writer\OpenInMODI"
Const strType As String = "REG_DWORD"
Const dVal = 0

Sub ChangeXlUndoHistory()
Dim objWSH As Object

Set objWSH = CreateObject("WScript.Shell")

objWSH.RegWrite strKey, dVal, strType

Set objWSH = Nothing

MsgBox ReadRegEdit(strKey)

End Sub


'// To Read a Key
Function ReadRegEdit(key As String)
    Dim Ws, Tmp
    
    Set Ws = CreateObject("WScript.Shell")
    Tmp = Ws.RegRead(key)

    If Tmp = "" Then
        ReadRegEdit = ""
    Else
        ReadRegEdit = Tmp
    End If

    Set Ws = Nothing

End Function