Evento Keypress

Question

Mi codigo : 

 Private Sub InfluenceCheckBox1_CheckedChanged(sender As Object) Handles InfluenceCheckBox1.CheckedChanged
        If InfluenceCheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If InfluenceCheckBox1.Checked = False Then
            Timer1.Stop()
        End If
    End Sub

Timer1 : 

 If GetAsyncKeyState(Keys.F1) Then
            WritePointerInteger("game.exe", Label1.Text + &H6D9B2C, "2")
        End If

Quiero saber como hacer para que la tecla que presione dentro de un texbox se registre la tecla presionada y envie el dato de la tecla presionada aqui en este  GetAsyncKeyState del timer 1 :

If GetAsyncKeyState(Keys.'aqui el dato de la tecla) Then

'Para que al presionar esa tecla se ejecute este codigo :  

WritePointerInteger("game.exe", Label1.Text + &H6D9B2C, "2")

    End If

Gracias ...