HTAで日付をフォームに入れたいのですがいまいちうまくいきません。

こんな感じでつくっていますがおかしい表示になってしまいます。

Sub IptToday()

   Dim dtmDate
       dtmDate = Year(Now()) & "-" & Right("0" & Month(Now()),2) & "-" & Right("0" & Day(Now()),2)
       msgbox dtmDate

End Sub
・
・
・
・
・
・
【日付】
<input type="text" name="InputDay1" value="">
&nbsp;&nbsp;&nbsp;～&nbsp;&nbsp;&nbsp;
<input type="text" name="InputDay2" value="">
&nbsp;&nbsp;
<input type="button" name="go" value="今日" onclick="IptToday()">

まず、 msgbox dtmDate は、ダイアログを表示します。
input text フォームに値を入れたいなら、そちらに値を設定する必要があります。
id を指定しておいて、直接値を設定することもできますが、
普通フォームを使う場合にはそれぞれのフォームを

<form>～</form>

で囲みます。
例えば、

<form name="date">
<input type="text" name="InputDay1" value="">
&nbsp;&nbsp;&nbsp;～&nbsp;&nbsp;&nbsp;
<input type="text" name="InputDay2" value="">
&nbsp;&nbsp;
<input type="button" name="go" value="今日" onclick="IptToday()">
</form>

のようにしたら、「InputDay1」に値を設定する場合

document.date.InputDay1.value=dtmDate

のように値を設定できます。