RTF Textbox find and replace dialog

[Merrion]

To use, put the following in the RTF textbox keydown sub:-

Private Sub rtfText_KeyDown(KeyCode As Integer, Shift As Integer)
 
If Shift And 2 Then
   If KeyCode = vbKeyF Then
        Call FindReplaceMain.ShowFindDialog(rtftext)
    ElseIf KeyCode = vbKeyH Then
        Call FindReplaceMain.ShowReplaceDialog(rtftext)
    End If
End If
 
End Sub