Manipulate Textbox Format When User Clicks On It

[Ark68]

I use this code below to manipulate the formatting of one of the textboxes in my userform.
I think it is doing what I want it to (sets default text and highlights it in preparation of being overwritten by the user). It appears to be working only when the user tabs to that textbox.
Is there a way to do this when the user click in that particular textbox?

Private Sub p_email_Enter()
    'Stop
    With s_email
        .Text = "@email"
        .ForeColor = RGB(227, 227, 227)
        .Font.Italic = True
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

 

[GWteB]

In the code above did you make a typo (s_email vs p_email) by any chance?

 

[Ark68]

Yes. I did. I caught that once I tested further.

 

[GWteB]

OK. Anyway, make a dummy Text Box on your UserForm (a very tiny one) and hide that dummy behind the email Text Box (Z-order).
Than use this code for the Text Box itself

Private Sub s_email_Enter()
    With .s_email
        .Text = "@email"
        .ForeColor = RGB(227, 227, 227)
        .Font.Italic = True
        .SelStart = 0
        .SelLength = Len(.Text)
        .SetFocus
    End With
End Sub

Private Sub s_email_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   TbxDUMMY.SetFocus
   s_email.SetFocus
End Sub