入力を得るならInputBox()

こんな感じ

dim code
code  = InputBox("","銘柄コードを入力してください","0000")
if code  = "" then
	WScript.Quit
end if
msgbox code

参考