ارایه های یک بعدی در vb

برنامه ای بنویسید که عددی را از ورودی بگیرد و اعداد فرد 1 تا آن عدد را در آرایه قرار داده نتیجه را چاپ نماید.

Private Sub Command1_Click()

Dim N(1 To 200) As Integer

a = Val(InputBox(""))

k = 0

Cls

For I = 1 To a Step 2

  k = k + 1

  N(k) = I

Next I

For I = 1 To k

  Print N(I);

Next I