Highlight Portion Of Text Of TextBox

The following code highlights part of the time (hours or minutes) that will be modified by a spin button. The code works fine (although maybe a more efficient way). Each time you click in the time it will highlight the hours or the minutes, depending on where you click. When you click on the spin button the control loses the focus so becomes un-highlighted. I thought that just setting the focus back to the text box would work but what I am getting now is it highlights on every other click of the spin button.

Private Sub spnTime_Change()
Dim dtTime As Date
Dim y As Integer
If strTimeChange = "" Then
MsgBox "Please click on a time to modify it"
Exit Sub
End If
dtTime = Format(ctlText, "hh:mm")
y = Me.spnTime.Value...............