Спасибо, Танмей, но все равно не работает.
Этот код работает так же, но страница не заряжается.
Я положил это:
Set IEDoc = IE.document
Set DOCelement = IEDoc.getElementById("search-string")
DOCelement.Value = "5010993370528"
Set DOCelement = IEDoc.getElementById("search-form")
DOCelement.submit
Я предполагаю, что есть скрытая область.
Спасибо за вашу помощь