複数テキストBOX同一処理で最適な方法 (ID:89148)

名前

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

本文 テキストボックスが8個あります。 すべてのテキストボックスに共通処理があるので現状は下記のようにしてます Private Sub txt1_GotFocus() wk=str End Sub Private Sub txtWK_GotFocus() wk=str End Sub Private Sub txtShinNO_GotFocus() wk=str End Sub 以下省略 コード長が長くなるので１処理にまとめたいのです。 テキストボックス配列にすればまとまりますが 個々のテキストボックス名に固有の名称をつけたいので配列は避けたいのです どうすれば対処できるでしょうか？どなたかご存知の方いましたら教えて頂けると幸いです。 宜しくお願い致します