入力ボックス閉じた時間を出力する方法

こんにちは。

下記に記載しましたスクリプトは、
VBSファイルを実行することにより入力ボックスが表示され、
入力ボックスに文字列を入力すると、
「Active.csv」というファイルに
『現在の時間』と『入力文字列』が出力されます。
このVBSスクリプト内に入力ボックスにて「OK」を
押したときの時間を拾っていれたいと思っております。

どのような手法が考えられますでしょうか？
ご教授のほど、よろしくお願いします。

Option Explicit
On Error Resume Next

Dim objFSO ' FileSystemObject
Dim objFile ' ファイル書き込み用
Dim Reason' ファイル入力

Reason = InputBox("何かいれてください。")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile("Active.csv", 8, True)
If Err.Number = 0 Then
objFile.Write(Date())
objFile.Write(",")
objFile.Write(Time())
objFile.Write(",")
objFile.Write(Reason)
objFile.Write(",")
'ここに入力ボックスにて「OK」を押したときの時間を拾っていれたいです。
objFile.Write(",")
objFile.Write(vbNewLine)
objFile.Close
Else
WScript.Echo "ファイルオープンエラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If

No.2 ベストアンサー 回答者： mjsamiasan 回答日時： 2007/02/02 18:10

Dim InputTime '入力時刻

Reason = InputBox("何かいれてください。")
InputTime = Now

な感じでしょうか？

No.1 回答者： dsuekichi 回答日時： 2007/02/01 12:44

> ここに入力ボックスにて「OK」を押したときの時間を拾っていれたいです。

なら、
> Reason = InputBox("何かいれてください。")
この直後にNow関数を実行して、値を変数に保持しておくとか・・・

この回答への補足

うーん。難しいですねー。
どうやったらよろしいのでしょうか？

補足日時：2007/02/02 00:18