データ文と連動させてFOR-NEXTで符合するまで繰り返し検索させるか何かいい方法はあると思われます。 あとそのスクショだけだと例えば「G」と「A」を分けた方が短くなる気も。 色々とシェイプアップ出来そうなプログラムに見えますよ。