Web browser programing in vb

Option Explicit

'Declare Sleep API
Private Declare Sub Sleep Lib "kernel32" (ByVal nMilliseconds As Long)

Sub UseIE()
    Dim ie As Object
    Dim thePage As Object
    Dim strTextOfPage As String
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.FullScreen = True
    With ie
        .Visible = True
        .Navigate "http://www.bbc.co.uk"
        While Not .ReadyState = READYSTATE_COMPLETE
            Sleep 500      'wait 1/2 sec before trying again
        Wend
    End With
    
    Set thePage = ie.Document
    Debug.Print thePage.Title
    Debug.Print thePage.fileSize
    Worksheets.Add
    'ActiveCell.Value = thePage.documentElement.innerHTML
    strTextOfPage = thePage.documentElement.innerHTML
    
    'ie.Quit
    
    Set thePage = Nothing
    Set ie = Nothing
    
End Sub