Highlight Text in a textbox

[vqthomf]

Hi I was wondering if someone can help I am trying to highlight text in a
textbox if the user miss scan an item into a textbox, I am using the code
below but I can't get it to work any help would much apprecated.
Regards
Charles

Private Sub txtVin_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
'
If KeyCode = 13 Then
If Len(txtVin.Value) = 17 Then
Call Vinchk
Else
MsgBox "Sorry there are not enough character,Please re-scan the
Vin."
With txtVin
.SetFocus
.SelStart = 0
.SelLength = Len(.Text) 'I have also tried .TextLength
End With
End If
End If
Call bntEnabled
End Sub