对象变量 或with块未设置

对象变量 或with块未设置 ,什么原因啊，说代码错误所在行是   
 Dim email As Integer
 email = WebBrowser1.Document.body.innertext      说这行有错误 如何改正啊 ，在关闭窗口是提示这个错误。有时候运行还正常 --------------------编程问答-------------------- 网页没打开或已经关闭，WebBrowser1.Document 为 Nothing。 --------------------编程问答--------------------

Private Sub Command1_Click()

  Dim email As String

  WebBrowser1.Navigate "http://www.baidu.com"

  Do While WebBrowser1.Busy

     DoEvents

  Loop

  email = WebBrowser1.Document.body.innertext

  MsgBox email



End Sub

--------------------编程问答--------------------

引用 1 楼 tiger_zhao 的回复:

网页没打开或已经关闭，WebBrowser1.Document 为 Nothing。

具体如何解决呢

补充：VB ,  基础类