VBSでFor文を使って細胞分裂の計算プログラムを作りました

以下、スクリプトです。
メモ帳などにコピーし、拡張子を.vbsで保存すると実行いただけます。

---

'==========================================
'変数定義
'==========================================
Dim intNumber,nissuu,kaisuu,I,Title

'==========================================
'変数初期値
'==========================================
intNumber=1
Title="細胞分裂計算プログラム"

MsgBox "細胞の数を調べます。",,Title
MsgBox "ひとつの細胞から始まり、1日目は1回分裂、2日目はさらに2回分裂という風に増えてゆきます。",,Title
nissuu=InputBox("何日目の細胞の数が知りたいですか？",Title)
kaisuu=0

'==========================================
'計算
'==========================================
For I=1 To nissuu Step 1
    kaisuu=kaisuu+I
Next

For I=1 To kaisuu Step 1
    intNumber=intNumber*2
Next
MsgBox nissuu & "日目の細胞の数は、" & intNumber & "個です。",,Title

---