Function NOVBX() Set Fso = CreateObject("Scripting.FileSystemObject") If (Fso.FileExists(Environ("programfiles") & "\Oracle\VirtualBox\VBoxSvc.exe")) Then End End If End Function