test

 1 blackScreen()
  2 	Dim wshShell
  3     Set wshShell = CreateObject("Wscript.Shell")
  4     Set RE = New RegExp
  5     RE.IgnoreCase = True
  6     path = getFileName()
  7     If path = "" Then
  8     	MsgBox "no file"
  9         Exit Function
 10     End If
 11     wshShell.SendKeys "{Esc}"
 12     wshshell.Run path
 13 End Function
 14 blackScreen()
	Dim wshShell
    Set wshShell = CreateObject("Wscript.Shell")
    Set RE = New RegExp
    RE.IgnoreCase = True
    path = getFileName()
    If path = "" Then
    	MsgBox "no file"
        Exit Function
    End If
    wshShell.SendKeys "{Esc}"
    wshshell.Run path
End Function