Ti posto questo codice che, anche se fatto un pò in fretta, sembra funzionare. Attenzione devi settare la proprietà del form KeyPreviw=False:

codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
        If TypeOf ActiveControl Is TextBox Then
    
            Select Case KeyCode
                Case vbKeyUp        'Freccia sù
                     MsgBox ("Hai premuto freccia sù")
                    KeyCode = 0
                Case vbKeyDown      'Freccia giù
                    MsgBox ("Hai premuto freccia giù")
                    KeyCode = 0
            End Select
    End If
End Sub
Ciao.
Scusa, non mi ero accorto che chiedevi per VB.Net. L'esempio è per VB6.