Puoi farlo usando una matrice di Text:
codice:
Private Sub Txt_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
  Case 38
    If Index > 0 Then
      Txt(Index - 1).SetFocus
    Else
      Txt(Txt.Count - 1).SetFocus
    End If
  Case 40
    If Index < (Txt.Count - 1) Then
      Txt(Index + 1).SetFocus
    Else
      Txt(0).SetFocus
    End If
End Select
End Sub
In questo modo come ti ha detto biifu, ti sposti con la freccia SU e GIU', ma puoi adattarlo anche per quelle orizzontali.

Ciao