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