入力の数値判定後の処理について

Question

以下のコードで4以下の場合は値を5以上で入力してくださいの入力画面を表示させて、5以上の場合は処理を実行させる処理を完成させたいです。「値を5以上で入力してください」の入力画面で5以上を入力した際処理結果を出力させたいのですがうまくいきません。

どうすれば実現できるかご教示頂けますでしょうか。

Dim value,count

value = cint (InputBox("値を入力してください"))

if value < 5 then
value=cint(Inputbox("値を5以上で入力してください"）)

Else
count = 0

for I = 1 to value
count = count + 5
next

WScript.echo "結果:" & count

End If

WScript.Quit

Answer 1

Do Loop文とExit Doを組み合わせてることにより処理ができるようになりました。