'Change Outlook Express Tile Bar

Dim pmShell, oe_id, oe_id2, oe_tit_key, p1, m, j, pm
Dim sMsg, sInput, sDone
sMsg = "This script will change the name in the Outlook Express Title Bar." & vbCr _
 & "You will need to close and re-open Outlook Express to take effect." & vbCr & vbCr _
 & "Would you like to continue?"

sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If sInput = vbYes Then 

Set ws = CreateObject("WScript.Shell")

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

p1 = "HKCU\Identities\" & oe_id2 & "\Software\Microsoft\Outlook Express\5.0\"

m = ws.RegRead(p1 & "Windowtitle")
j = "Change Outlook Express Tile Bar"
pm = InputBox("Type in new Title Bar name.", j, m)
If pm <> "" Then
  ws.RegWrite p1 & "Windowtitle", pm

sDone = "Don't forget to close and re-open Outlook Express to see New Title." & vbCr & vbCr _
 & "This script was downloaded from www.paulsxp.com." 
MsgBox sDone , 64 ,"Paul's XP and Vista Tweaks"
End If
End If