こんな感じでしょうか?Private Sub Command1_Click() Dim obj As Object Set obj = Text1 obj.Text = obj.NameEnd Subこれで変数Objに設定されているText1というオブジェクトの名前が取得できますあとはObj変数を配列にするなりすれば良いと思います