Как отловить в своей программе нажатие CTRL + F

If vbKeyControl Then
Select Case KeyCode
Case vbKeyF
Text1.Top = 200
Text2.Visible = True
Text2.Top = 0
Text2.Height = 200
Text2.SetFocus
Command1.Visible = True
Command4.Visible = True
vremvprog = False
Text2.BackColor = 8454143
End Select
End If
 
If vbKeyControl Then
Select Case KeyCode
Case vbKeyD
Text1.SelText = Date
Case vbKeyA
Text1.SelStart = 0
    Text1.SelLength = Len(Text1.text)
End Select
 
End If

Private Sub Command2_Click()
On Error Resume Next
z = z + Text1.SelLength
z = InStr(z, Text1.text, Text2.text)
If z > 0 Then
Text1.SetFocus
Text1.SelStart = z - 1
Text1.SelLength = Trim(Len(Text2.text))
Text2.BackColor = 8453888
Else
Command4.Visible = True
Text2.SetFocus
Text2.BackColor = 8421631
z = 1
End If
 
 
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = 70 Then MsgBox "Ctrl+F"
End Sub
 
Private Sub Form_Load()
    KeyPreview = True
End Sub

Private Sub Command2_Click()
z = z + Text1.SelLength
z = InStr(z, Text1.text, Text2.text)
If z > 0 Then
Text1.SetFocus
Text1.SelStart = z - 1
Text1.SelLength = Trim(Len(Text2.text))
Text2.BackColor = 8453888
Else
 
z = 1
End If
 
 
End Sub