How to implement a Find/Replace dialog with comdlg32.dll
============================================================

Option Explicit
'Find/Replace Type Structure
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 Type
'Common Dialog DLL Calls
Private 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 Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
    'Call the find text function
    FindText frText
End Sub
Private Sub cmdReplace_Click()
    'Call the replace text function
    ReplaceText frText
End Sub
Private Sub Form_Load()
    'Set the Find/Replace Type properties
    With frText
        .lpstrReplaceWith = "Replace Text"
        .lpstrFindWhat = "Find Text"
        .wFindWhatLen = 9
        .wReplaceWithLen = 12
        .hInstance = App.hInstance
        .hwndOwner = Me.hWnd
        .lStructSize = LenB(frText)
    End With
End Sub

    Source: geocities.com/siliconvalley/network/5045

               ( geocities.com/siliconvalley/network)                   ( geocities.com/siliconvalley)