Cuando presentas a un usuario el valor por defecto en un TextBox, puedes querer seleccionarlo cuando el TextBox tiene el foco. De esta manera el usuario puede fácilmente escribir sobre el texto por defecto.

La función que sigue lo implementa. El primer click sobre el campo selecciona todo el texto y el segundo posiciona el cursor.

Public Sub TextSelected()
Dim i As Integer
Dim oMyTextBox As Object

Set oMyTextBox = Screen.ActiveControl
    If TypeName(oMyTextBox) = "TextBox" Then
        i = Len(oMyTextBox.Text)
        oMyTextBox.SelStart = 0
        oMyTextBox.SelLength = i
    End If
End Sub

Simplemente añade la función a tu proyecto y llámala desde el evento GotFocus del TextBox.

Private Sub Text1_GotFocus()
    TextSelected
End Sub

From--Christopher Buteau, cbuteau@fastech.com