テキストボックス内のテキストを全て選択

Last UpDate 2000/04/18

フォームにテキストボックス(Text1）を貼り付けます。
標準モジュールを用意します。

フォームモジュール内の記述。
Option Explicit

'GotFocusイベントでActiveTextに引数テキストボックスを指定して呼び出す。
Private Sub Text1_GotFocus()
    ActiveText Text1
End Sub


標準モジュール内の記述。
Option Explicit

'テキストボックスにフォーカスがセットされた時、テイストボックス内の
'全てのテキストを選択状態にする
Public Sub ActiveText(ByRef MyBox As Object)
    With MyBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

Visual Basic Help参照ポイント
SelStart　プロパティ
SelLength　プロパティ

以上の処理でテキストボックスにフォーカスがきた時に、テキストボックス内のテキストを全て選択状態にする事が出来ます。

テキストボックスのGotFocusイベントで「ActiveText」にテキストボックスオブジェクトを参照渡しで渡す事で、どのテキストボックスでも使用可能です。

参考にして頂ければ幸いです。