Tabulator problem

Hej

Kan det lade sig gøre at lade pil op og ned virke som tab og shift+tab, samtidig med at pilene til siderne virker som alm. pile, altså hvor man bevæger sig frem og tilbage i tekststrengen.
Jeg har selv forsøgt men mangler lige det sidste. Her er hvad jeg har gjort.

Det første jeg har gjort er at jeg på Gotfocus har sat følgende kode:

Private Sub TransferKennung_GotFocus()
    Me.TransferKennung.SelStart = 0
    Me.TransferKennung.SelLength = Len(Me.TransferKennung)
End Sub

Dette bevirker at jeg kan bruge pil til siderne i feltets  tekststreng. Derefter har jeg på keydown feltet sat følgende kode

Private Sub TransferKennung_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case 40
        If Shift = 0 Then
            DoCmd
        End If
  End Select
End Sub

Denne kode bevirker at jeg kan finde ud af at jeg har trykket pil ned. Det jeg så mangler er en funktion som får mig til at hoppe til det næste felt i tabulatorrækkefølgen.