请求帮助，想请大家把我这段VBS改一下。

Dim passward,enterpw
do
enterpw = inputbox("请输入密码。")
constpassward = ("1234")
if enterpw=("1234") then
msgbox("认证成功，恭喜你！")

exit do '该句可退出vbs窗口.
else
msgbox("认证失败！")
end if
loop

上面这一段，输入密码的时候会显示出密码，那位大大帮忙改成输入密码的时候是星号的，谢谢。