Dim pmShell, oe_id, oe_id2, oe_tit_key

Set pmShell = CreateObject("WScript.Shell")

On Error Resume Next

oe_id = "HKCU\Identities\Default User id"
oe_id2 = pmShell.RegRead(oe_id)
oe_tit_key = "HKCU\Identities\" & oe_id2 & "\Software\Microsoft\Outlook Express\5.0\Windowtitle"

pmShell.RegDelete oe_tit_key

pmShell.Run("rundll32.exe iedkcs32.dll,Clear")

MsgBox "Default Title Bar has been Restored.", vb, "Finished"