Thanks for your help. That wasn't quite the direction that I was headed, but I figured it out. Here is my revised code:

Option Explicit
Dim WithEvents ie As InternetExplorer
Dim WebSW As Boolean


Private Sub Form_Load()
WebSW = False
Set ie = New InternetExplorer
End Sub


Private Sub cmdWeb_Click()

If txtWeb.Text = "" Then
MsgBox "No web site for that vendor. To Add a web site, hit update, type the web site into the database, and hit save", _
vbExclamation + vbOKOnly, "Web"
Exit Sub
End If

If WebSW = True Then
Set ie = Nothing
Set ie = New InternetExplorer
End If

ie.Navigate txtWeb.Text
ie.Visible = True
WebSW = True
End Sub

When the user clicks on the Web command button on the form, Internet Explorer will pop-up with that website.