こんなことできないでしょうか？ (ID:90436)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 修正、レイトバインドになってました。m(__)m △ pChStr(hTextBox.Tag) = pTextBox(hTextBox.Tag).Text ○ pChStr(CInt(hTextBox.Tag)) = pTextBox(CInt(hTextBox.Tag)).Text Indexをタグに設定せずに、名前からを抽出するには、 Dim Index As Integer Index = CInt(hTextBox.Name.Substring(Len("pTextBox"), Len(hTextBox.Name) - Len("pTextBox"))) - 1 又はちょっとトリッキーですが、 Index = CInt(hTextBox.Name.Replace("pTextBox", "")) - 1 等で出来ます。