crea un variable tipo switch que sea true en el keydown de la tecla y false en el keyup, luego comparas:
dim keynumpad6 as integer dim keynumpad8 as integer
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 97 Then keynumpad6 = false end if
If KeyCode = 98 Then keynumpad8 = false End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 97 Then keynumpad6 = true end if
If KeyCode = 98 Then keynumpad8 = true End If
if keynumpad6 and keynumpad8 then msgbox("estan las dos teclas presionadas") end if
End Sub
no se los codigos de las teclas, solo lo hice a modo de ejemplo, ahi tu lo corriges. otra forma es usar las apis, que tiene funciones para preguntar si X tecla se encuentra presionada o no.