Private Sub cmdFind_Click()
    ShellExecute hwnd, "Find", _
        txtStartingDirectory.Text, _
        vbNullString, vbNullString, SW_SHOWNORMAL
End Sub