Option Explicit
 
Private Sub Form_Load()
    WB.Navigate ("www.asdasdasdasd.es")
End Sub
 
Private Sub WB_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
    On Error Resume Next
    MsgBox "Error"
    With WB
        .Navigate (.LocationURL)
    End With
End Sub