Как насчет чего-то вроде:
Sub window_Open(strLocation As String, Menubar As Boolean, height As Long, width As Long, resizable As Boolean)
With CreateObject("InternetExplorer.Application")
.Visible = False
.height = height
.width = width
.Menubar = Menubar
.Visible = True
.resizable = resizable
.Navigate strLocation
End With
End Sub
Sub test()
window_Open "www.google.com", True, 250, 350, False
End Sub