Visual Basic - Ayudaen Evento KeyUp

Hola cibers

esta es mi necesitadad, realizar en atajo como por ejemplo Control + G y susede algo
como llamr una venta a un mensaje etc.
esta edia mia lo quiero implemtar en el evento KeyUp de mi formulario. y tengo un problema es el paramtro Shift, que le asigne vbKeyControl, y ami keycode co compare con la tecla vbkeyG

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Shift = vbKeyControl
if KeyCode = keyvbG then
msgbox "mensaje"
end if
End Sub

el problema que mes surgio es que cuando precio la tecla g sin el control no corria, hasta esta bien, cuando precio el control y seguido de la tecla g, me salio lo que quiere. y luego precio ne la tecla G, me sucedio lo mismo que hacia con el Control + G. yesto lo que me dejo un poco consternado.
gracias ante mano y espero su respuesta

Soy danny el mismo que hico la pregunta
y pues ya encontr mi error

'Dim ky As Long
if shift = vbCtrlMask And KeyCode = vbKeyG then
me surge algo
end if

shift = vbCtrlMask
el shift = solo es una mascara y encontre el parametro de mascara de control
que vbCtrlMask y tambien hay para e alt y el shift
problema solucionado