supplying arguments to execute the find command in notepad.

[jerryczarnowski]

Hello,

I have a command button that opens notepad with a string argument representing the filename. Here is the function below:

Public Function OpenNotePad(strFile As String)
Dim x As Variant
x = Shell("notepad.exe " & strFile, 1)
End Function

Can I take it a step further and supply an additional argument representing lets say a keyword to be used in the "edit-find" in notepad. Basically I would like the user to hit the command button and it opens a particular text file and moves to the keyword in the file. Any help would be greatly appreciated.

Thanks, Jerry