あれれ？おかしいですよ。

Dim i as Integer = 5

みたいに宣言と代入を同時にできなかった？