Trying and Failing to Select (Highlight) Existing Text In Userform Textbox

[Ark68]

I am using this code to try to highlight (select) the existing value in a textbox to allow a user to overtype a new value over the existing without having to manually select. Unfortunately it's not working. The value is not highlighted and the uer has to manually highlight it or delete it. Open to suggestions to improve.

Private Sub tb_s1_lwr_Enter()
    If trnfrm_new = False Then
        With Me.tb_s1_lwr
            Oval = .Value
            .BackColor = RGB(166, 166, 166) 'RGB(206, 234, 232)
            .SelStart = 0
            .SelLength = Len(Me.tb_s1_lwr)
        End With
        Exit Sub 'prevents field clearing
    End If
    tb_lower_enter Me, 1 '{frm_trn_services}*
End Sub

 

[Ark68]

I have updated to this code:

Private Sub tb_s1_lwr_Enter()
    'checked: 21-03-04
    'Stop
    If trnfrm_new = False Then
        With Me.tb_s1_lwr
            Oval = .Value
            .BackColor = RGB(166, 166, 166) 'RGB(206, 234, 232)
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
        ForceFocus Me.tb_s1_lwr
        Exit Sub 'prevents field clearing
    End If
    tb_lower_enter Me, 1 '{frm_trn_services}*
End Sub

With the "ForceFocus" procedure being:

Private Sub ForceFocus(ByVal Ctrl As Control)
    Set OCtrl = Ctrl
    Application.OnTime Now, "DelayedSetFocus"
End Sub

I've used this method with other textboxes, but in this case, I'm getting a "Sub or Function not defined" error with the line highlighted in red.