Ragnazar, ключевое слово «Const», описывающее последующую за ним константу, не предполагает наличия каких-либо выражений в определяющей части инструкции (после знака равенства).
Так что, используйте «Dim». Тем паче, что, в данном случае, сие и по смыслу должно быть так.
Код:
Dim AnyHere
AnyHere = InputBox("Сообщение", "Заголовок")
