Active文档的问题：可以打开一个页面，如何循环打开多个页面？

Question

Option Explicit
Dim i As IntegerPrivate Sub Command1_Click()
  Dim strPath As String
  Dim str1, str2 As String
  Dim page As String
  str1 = "http://love.yalaso.net/show.asp?whichpage="
  str2 = "&dd=&sex=&photo=&age1=&age2=&px="
  i=1
  For i = 1 To 10
     strPath = str1 & Trim(Str(i)) & str2
     page = "page" + Trim(Str(i))
     UserDocument.AsyncRead strPath, vbAsyncTypeFile, page
  Next i
End Sub
Private Sub UserDocument_AsyncReadComplete(AsyncProp As AsyncProperty)
  Dim filenum As Long
  filenum = FreeFile
  Open AsyncProp.Value For Input As filenum
  RichTextBox1.Text = "这是第 " + Trim(Str(i)) + " 页" + vbCrLf + StrConv(InputB(LOF(filenum), filenum), vbUnicode)
  Close filenum
End Sub如果上面的代码有还是没有For i = 1 To 10和next i两句都是一样，都只显示第一页的文本，为什么？
如何才能循环？请教请教！

Answer 1

要在Close filenum后循环下一个网址