Thank you dilettante and dougcranston for your help I used your hta suggestion which for me worked great.
Here is the code I used in case someone else wants to do what I did.
Sub notify()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim objFile1, strMsg1, strMsg2, strMsg3, strCode1
strMsg1 = "A New Directory Has been added"
strMsg2 = "Location and Name..."
strMsg3 = strFileName
strCode1 = "<BUTTON onclick=" & """" & "window.close()" & """" & ">Close Window</BUTTON>"
Set objFile1 = objFso.CreateTextFile("c:\temp\notify.hta", 2)
objFile1.writeline("<HTML>"

objFile1.writeline("<HEAD>"

objFile1.writeline("<TITLE>Notify Window</TITLE>"

objFile1.Writeline("<SCRIPT LANGUAGE=JavaScript><!--"

objFile1.Writeline("if (document.all || document.layers)"

objFile1.Writeline(" window.resizeTo(600,200)"

objFile1.Writeline("//--></SCRIPT>"
objFile1.writeline("</HEAD>"

objFile1.writeline("<BODY BGCOLOR=yellow>"

objFile1.Writeline("<H2>"

objFile1.writeline("<CENTER>"

objFile1.writeline(strMsg1)
objFile1.writeline("</CENTER>"

objFile1.writeline("<P>"

objFile1.writeline(strMsg2)
objFile1.writeline("<BR>"

objFile1.writeline(strMsg3)
objFile1.writeline("<P>"

objFile1.writeline("<P>"

objFile1.writeline("<CENTER>"

objFile1.writeline(strCode1)
objFile1.writeline("</CENTER>"

objFile1.Writeline("</H2>"

objFile1.writeline("</BODY>"

objFile1.writeline("</HTML>"

objFile1.close
objShell.run "C:\temp\notify.hta"
Set objFile1 = Nothing
End Sub
objFso and objShell where initialized earlier in the script and strFilename is the variable passed to the Sub.
Thanks again for the advice and help with my problem.
Randy