'秒タイマー　設定時間が経過するとメッセージが表示されます。
Dim Valsec
Valtime=inputbox("設定時間（秒）")
Valsec=Timer
If Valtime <> "" Then
	ss=Timer-Valsec
	Do While ss <= Int(Valtime) 
	ss=Timer-Valsec
	Loop
	MsgBox("設定時間 " & Valtime & "秒が経過しました。")
Else MsgBox("時間が設定されていません。終了します。")
End If