一定加分！！！ VB中怎样从网上下载文件？？？

Question

RichTextBox1 (RichTextBox)
Text1 (TextBox)
Command1 (CommandButton)
Inet1 (Inet)
再text1里写地址，文件内容就被写道richtextbox理
经过改进可以达到下载文件的目的Private Sub Command1_Click()
    Dim txt As String
    Dim b() As Byte
    On Error GoTo ErrorHandler
    Command1.Enabled = False
    ' This opens the file specified in the URL text box
    b() = Inet1.OpenURL(Text1.Text, 1)
    txt = ""
    For t = 0 To UBound(b) - 1
        txt = txt + Chr(b(t))
        'Debug.Print b(t);
    Next
    ' This loads the opened file into the RichTextBox control
    RichTextBox1.Text = txt
    Command1.Enabled = True
    Exit Sub
ErrorHandler:
    MsgBox "The document you requested could not be found.", vbCritical
    Exit Sub
End Sub