Set ModelessDialog = window.showModelessDialog( _
	"HTML\SearchString.htm", _
	window, _
	"dialogWidth:450px;dialogHeight:140px;help:no" _
)

<SCRIPT for=window event=onload language="VBScript">

	Set pWindow = window.dialogArguments
	Call window.setTimeout("Call document.all.item(""SearchString"").focus()", 50 )

	Set BodyTextObj = pWindow.document.all.tags("BODY")(0).createTextRange()
	BookMark = BodyTextObj.getBookmark()

</SCRIPT>