[[ Very late reply, but this might help others ]]
You can use Shell

(1) To Standby :
Code: vb
Shell("%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState")

(2) To Hibernate :
Code: vb
Shell("%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState Hibernate")