array関数で格納した配列の型を変更する

http://www.officepro.jp/excelvba/array/index6.html

このページにある方法で
まとめて配列にinteger型の数値を格納したいと考えています。
この方法だとvariantで配列を定義する必要があるので
とりあえず配列に格納してから
redim preserveでinteger型に変更したいのですが
そのままだと型変更することができません。

http://officetanaka.net/excel/vba/statement/ReDi …

このページにあるように後から配列を型変更するためには
バリアント型変数を配列として使用する必要があるそうなので
Dim myData As Variant
にarray関数で配列の格納を行いましたがうまくいきませんでした。

どうすれば良いでしょうか？

No.1 回答者： tatsu99 回答日時： 2015/11/06 19:29

一旦、variant型で初期値を格納し、それをInteger型の配列に転送しなおすのが最も簡単な方法です。

コードは以下のようになります。
-------------------------------------------
Public Sub testx()
Dim varArray As Variant
Dim intArray() As Integer
Dim i As Integer

varArray = Array(1, 20, 300)
'Integer型に格納
For i = 0 To UBound(varArray)
ReDim Preserve intArray(i)
intArray(i) = varArray(i)
Next
'内容を表示
For i = 0 To UBound(intArray)
Debug.Print intArray(i)
Next

End Sub
-------------------------------------------
実際に必要なのは、'Integer型に変換・・・の部分です。
'内容を表示・・・の部分は確認の為です