お疲れ様です。既に検討されているかも知れませんが、テキストボックスのコントロール配列を使用することによって値の書き込み、読み込み処理を下記のようにLoopで行うことによって単純化させることができ、お勧めです。 For i to 〜〜 Text1(i).Text = Array(i) Nextっていう回答で、いいのかな??