CapKeyFunction

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'tasto F3

If KeyCode = vbKeyF3 And Shift = 0 Then
.......
MyCode
.......
End If
End Sub