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

質問

こんにちは。

下記に記載しましたスクリプトは、
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

Dim InputTime '入力時刻

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

な感じでしょうか？

回答No.1

dsuekichi

> ここに入力ボックスにて「OK」を押したときの時間を拾っていれたいです。
なら、
> Reason = InputBox("何かいれてください。")
この直後にNow関数を実行して、値を変数に保持しておくとか・・・

補足

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