>>269
InputBox()でキャンセルすると空欄のまま決定したのと同じになるので、
空欄の場合にプログラム終了という分岐をかます

Do
mydate = InputBox("日付を入力してください。yyyy/m/d")
If mydate = "" Then
Exit Sub
End If
Loop Until IsDate(mydate)

ついでに空欄の入力とキャンセルを分けたければ、
Application.InputBox()
を使う。こっちはキャンセルでfalseが返る