I also addedWith Me.txtUPC.SelStart = 0.SelLength = Len(Me.txtUPC)End Withto hilight whatever number is in the box