单击时选择/突出显示文本框中的所有文本

Question

我认为这个很简单，但我无法弄清楚如何让它发挥作用。

我的表单有一个文本框。当用户在文本框中单击时，我希望宏选择所有文本。 使用此代码单击文本框时没有任何反应：

Private Sub TextBox_Enter()
    With TextBox
        .SetFocus
        .SelStart = 0
        .SelLength = Len(TextBox)
    End With
End Sub

我认为问题是，＆＃39;进入＆＃39;即使在文本框聚焦之前，事件也会触发。我应该选择哪个活动？没有什么比在＆＃39; OnEnter＆＃39;或者＆＃39; GotFocus＆＃39;。

在点击文本框时，是否有人提供高亮显示所有文字的解决方案？

我感谢任何帮助