El código correcto es el siguiente
Código:
'Declaramos la variable de las teclas del teclado
Dim tecla As New System.Windows.Forms.Keys()
'Si la tecla pulsada es igual a F1
If tecla = Keys.F1 Then
'muestra un msgbox
MsgBox("Con esta :F1: tecla estas mostrando una caja de texto, Msgbox")
End If
Espero que te sirva mi ayuda.