アクセス２０００のVBAで変数に係数をつける方法

アクセス２０００を使っています。 一つのレコード内に、下記のように、「半角４文字の番号＋スペース」という規則正しいデータがあります。 　↓↓ 11A11 10A11 22B11 09A22 しかし、このデータの数は不規則で、番号が１個のものもあれば、２０個のものもあります。 　↓↓ 11A11 11A11 10A11 22B11 09A22 ・・・ このデータ内にある半角４文字の番号を全て別々のデータにしたいと思い、VBAのコードを使って、InStr関数でスペースを検索し、そのスペースの手前から４文字のデータをleft関数やMid関数で抽出し、それを変数data(x)に代入し、次に、InStr関数で前のスペースの位置から次のスペースを探して、また、そのスペースの手前から４文字のデータをMid関数で抽出し、それを変数data(x)に代入する。 要するに、data(x) の中の x を１から１づつ増加させていき、data(1),data(2),data(3)という変数を自動的に生成し、その生成された各変数にデータを代入していきたいのですが、どうすればいいのでしょうか？