424 - Object Required

[NetCipient]

I am attempting to use a website listing form provided by Microsoft:

http://www.microsoft.com/downloads/results.aspx?productID=&freetext=web+site+listing&DisplayLang=en

Its purpose is to highlight websites of interest and press "Go" to access that website.

However, when I press 'Go", I get an error: "Unable to access website. 424 - Object Required".

Further, if I go to Actions-Explore Web Page (Ctrl-shift-X), the web page appears just fine.

Here is the code that came with the form:

---
'This customized contact item form uses the built-in functionality
' of the WebPage field and the "Explore Web Page" command.

Sub cmdGo_Click()
Call ExploreWebPage
End Sub

Sub ExploreWebPage()
'This procedure executes the "Explore Web Page" toolbar button
On Error Resume Next
If Item.WebPage = "" Then
MsgBox "There is no web page address specified.", 48, "Web Page Address"
Exit Sub
End If

Set Bars = Item.GetInspector.CommandBars
'Here is some code to determine which commandbars are available
'For I = 1 To Bars.Count
' MsgBox "Command bar: " & Bars.Item(I).Name & ". Visible: " & Bars.Item(I).Visible
'Next

Set Bar = Bars.Item("Standard&quot
'Here is some code to determine what controls are on the commandbar
'For I = 1 To Bar.Controls.Count
' MsgBox "Control caption: " & Bar.Controls.Item(I).Caption & ". Enabled: " & Bar.Controls.Item(I).Enabled
'Next

Set myControl = Bar.Controls.Item("E&xplore Web Page&quot
myControl.Execute

If Err <> 0 Then
MsgBox &quot;Error occured attempting to navigate to the web site. &quot; & Err.Number & &quot; - &quot; & Err.Description, 48, &quot;Explore Web Site&quot;
End If
End Sub
---

I am running Exchange 2000 on a Win2k Advanced Server and will be putting this into a Public Folder.

Any ideas?

Thanks all!
Bill
NetCipient.com