' Create a modal window and return a result...
window.name = "searchBox"

function searchBox(sURL, sOptions)
  dim vResult  
  if sOptions = "" then
    vResult = showModalDialog(sURL, window, "resizable:yes;center:yes;dialogHeight:650px;dialogWidth:550px")
  else
    vResult = showModalDialog(sURL, window, cStr(sOptions))
  end if
  searchBox = vResult
end function

sub closeOK(vValue)
  returnValue = vValue
  close
end sub

sub closeCancel
  close
end sub