プログラム初心者なんですが・・・。
例えば、

Dim m(100000) as long
Dim n as long
m(n)=n

としておいて、３で割り切れない100000までの整数を改めて
Dim l(k) as long 　'（kは具体的に数値を入れておく）
のなかに隙間無く入れたい。
どのようにプログラムを組めばよいか、良いアドバイスおながい。