加入WebBrowser、Timer、CommandButton控件各一个，然后使用以下代码：  

Private Sub Command1_Click()  
WebBrowser1.Navigate "http://www.163.com/"  
Timer1.Enabled = True  
End Sub  

Private Sub Timer1_Timer()  
Dim doc, objhtml As Object  
Dim i As Integer  
Dim strhtml As String  

If Not WebBrowser1.Busy Then  
Set doc = WebBrowser1.Document  
i = 0  
Set objhtml = doc.body.createtextrange()  
If Not IsNull(objhtml) Then  
Text1.Text = objhtml.htmltext  
End If  
Timer1.Enabled = False  
End If  
End Sub