VBscript issue with O2K2

[MGilbert]

I have been sending my employees a form that sets up a Outlook Group and 5 Shortcuts on that bar when they click a CommandButton. I had creaed this in Office 2K, but now we have upgraded the users, and the script does not run. I'm postion the script below. Thanks for your help!!

PS. I have removed certain names and file locations for security reasons.

Sub Commandbutton1_Click()

Set myPanes = Application.ActiveExplorer.Panes
Set myOLBarStorage = myPanes.Item("OutlookBar").Contents
Set myOLBarGroups = myOLBarStorage.Groups
myOLBarGroups.Add "Bar Group Name", 4
Set myGroup = myOLBarGroups.Item("Bar Group Name")
Set myShortcuts = myGroup.Shortcuts
myShortcuts.Add "[i]file1[/i]", "[b]Form1[/b]"
myShortcuts.Add "[i]file2[/i]", "[b]Form2[/b]"
myShortcuts.Add "[i]file3[/i]", "[b]Form3[/b]"
myShortcuts.Add "[i]file4[/i]", "[b]Form4[/b]"
myShortcuts.Add "[i]file5[/i]", "[b]Form5[/b]"

End Sub