Here is one I modded from the following website:
http://www.codingforums.com/showthread.php?t=125767

Maybe it will get you started.


Mark Ivey




Sub test()
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "about:blank"

Do
Loop While oIE.Busy

oIE.Visible = True

Application.Wait Now + TimeValue("00:00:05")

oIE.Document.WriteLn "<html<head<titlePage Title</title</head<body<div
id='output'test</div</body</html"

Set oDIV = oIE.Document.All("output")

'Wait 5 seconds then change the output int the window
Application.Wait Now + TimeValue("00:00:05")

oDIV.InnerHTML = "I changed it"

'Wait 5 seconds then close the application
Application.Wait Now + TimeValue("00:00:05")

oIE.Quit
End Sub