Сохранить html - VB

Формулировка задачи:

На данный момент я открываю нужную страницу через WebBrowser1 и по спец. команде копирую html в text1.text а далее сохраняю на компьютер. Это занимает много времени, можно ли как то напрямую скачивать html код интернет страницы?

Решение задачи: «Сохранить html»

textual
                            Листинг программы 
                        

                            Public Sub WinInetToText(URL As String, PathFile As String)
    Dim whttp As Object
    Dim ReturnStr As String, FileNumber
    Set whttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    whttp.Open "GET", URL
    whttp.send
    ReturnStr = whttp.ResponseText
    FileNumber = FreeFile
    Open PathFile For Append Access Write As #FileNumber
    Print #FileNumber, ReturnStr
    Close #FileNumber
End Sub
                        