Application VisualBasic Script

Sub AssignDown()
   Application.OnKey "{Down}", "DownTen"
End Sub