IE automation with VBA

Hi Guys

i am trying to get the meta description from the web page but when i run the below code i am seeing a IE opened with text in address bar as
"about:blank#http://www.google.com/"
and it is not going forward..

Could any body resolve this issue please...
its very urgent.. i am breaking my head to get rid of this...
Kindly help me

Thanks in advance

Function getMetaDescription() As String

'Requires Early Binding Reference to MSHTML Object Library
Dim html1 As HTMLDocument
Dim html2 As HTMLDocument

Set html1 = New HTMLDocument
Set html2 = html1.createDocumentFromUrl("http://www.google.com", "")

Do Until html2.readyState = "complete": DoEvents: Loop

getMetaDescription = html2.getElementsByTagName("meta").Item("Description").Content

Set html2 = Nothing
Set html1 = Nothing

End Function