vb关于读取网页源文件

 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongFunction HtmlStr$(Url$)
Dim XmlHttp 
Set XmlHttp = CreateObject("Microsoft.XMLHTTP") 
XmlHttp.Open "GET", Url, False 
XmlHttp.send 
If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode) 
Set XmlHttp = Nothing 
End Function 
Private Sub Command1_Click() 
s = HtmlStr("******************") s1 = Split(s, " ***********")  
s2 = Split(s1(1), ************* ") 
Text1.Text = s2(0) ’这是截取了如“http://www.********.net” 
我想继续取得这个s2(0)获得的网页地址下的源文件
a = HtmlStr(s2(0)) 
这么写不对，正确的写法应该怎么写