سلام عليکم
يه روش مناسبي هست که شما ميتنيد کد اسکي هر کليد رو با اون به سرعت پيدا کنيد و برنامتون رو بنويسيد:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print KeyCode
End Sub