请问怎样利用API实现查找替换对话框?

Private Type FINDREPLACE
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    flags As Long
    lpstrFindWhat As String
    lpstrReplaceWith As String
    wFindWhatLen As Integer
    wReplaceWithLen As Integer
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End TypePrivate Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA" _
(pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" _
(pFindreplace As FINDREPLACE) As LongPrivate frText As FINDREPLACEPrivate Sub Form_Load()'初始化
    With frText
        .lpstrReplaceWith = "替换文本"
        .lpstrFindWhat = "查找文本"
        .wFindWhatLen = 9
        .wReplaceWithLen = 12
        .hInstance = App.hInstance
        .hwndOwner = Me.hWnd
        .lStructSize = LenB(frText)
    End With
End SubPrivate Sub cmdFind_Click()'查找
    FindText frText
End SubPrivate Sub cmdReplace_Click()'替换
    ReplaceText frText
End Sub