データ型 記憶領域のサイズ　 範囲
バイト型 (Byte) 　1 バイト 　0 〜 255
整数型 (Integer)　 2 バイト　 -32,768 〜 32,767
長整数型 (Long)　 4 バイト　 -2,147,483,648 〜 2,147,483,647
単精度浮動小数点数型 (Single)　 4 バイト　 -3.402823E38 〜 -1.401298E-45 (負の値)。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　1.401298E-45 〜 3.402823E38 (正の値)。

倍精度浮動小数点数型 (Double)　 8 バイト　 -1.79769313486231E308 〜 -4.94065645841247E-324 (負の値)。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　4.94065645841247E-324 〜 1.79769313486232E308 (正の値)。

通貨型 (Currency)　 8 バイト　 -922,337,203,685,477.5808 〜 922,337,203,685,477.5807
10 進型 (Decimal) 　14 バイト 　小数部分を持たない数値の場合、
-79,228,162,514,264,337,593,543,950,335 〜 79,228,162,514,264,337,593,543,950,335 の範囲の値をとります。
小数点以下 28 桁の数値の場合、
-7.9228162514264337593543950335 〜 7.9228162514264337593543950335 の範囲の値をとります。

文字列型 (String) (可変長) 10 バイト + 文字列の長さ 0 〜 2GB
文字列型 (固定長) 文字列の長さ 1 〜 2GB
バリアント型 (Variant) (数値) 16 バイト 倍精度浮動小数点数型の範囲と同じ。
バリアント型 (Variant) (文字列) 22 バイト + 文字列の長さ 可変長の文字列型の範囲と同じ。
ユーザー定義型 要素に依存 それぞれの要素の範囲はそのデータ型の範囲と同じ。

関係ありそうなのの抜粋

プログラム完成です・・
ただ、ループの上限をどうしたらいいのか　不明です・・・