webbrowser1 always error

Private Sub Command1_Click()
On Error GoTo Err_Handler

wb.Navigate "http://www.websitename.com/"

Exit_Sub:
Exit Sub '

Err_Handler:
MsgBox "Error", vbInformation, "Error3"
Resume Exit_Sub

End Sub


Everytime during its loading, internet explorer script error shows or the program shutdown due to "visual basic has encountered a problem and needs to close".