Textbox problem :-(

hej
Jeg har et problem med min txtbox. Jeg finde en eller anden metode som altid lader txtcursoren at være på sidste plads i txtboksen, osse selvom jeg trykker en af piletasterne. Jeg har allerede prøvet med:
Private Sub txtType_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
    txtType.SelStart = Len(txtType.text)
End If
End Sub

men det fungerer ikke ordentligt fordi at markøren bliver sat 1 tegn før slutningen af teksen i boksen. Jeg har osse prøvet txtType.SelStart = Len(txtType.text) + 1 men det fungerer heller ikke ordentligt

Få forhånd tak
Kristian