Public Sub ShowFindDialog(Optional InitialDirectory As String)
ShellExecute 0, "find", _
IIf(InitialDirectory = "", "", "c:\"), _
vbNullString, vbNullString, SW_SHOW
End Sub
Private Declare Function ShellExecute Lib...