Notebook aus Standby aufwecken

Sub Standby()
Dim ergeb
ergeb = Shell("powercfg /hibernate off ", vbHide)
'Ausschalten Hibernate und somit Standby: siehe Systemsteuerung/Energieoptionen/Ruhezustand mit  _
_
Häkchen -> Hibernate; ohne Häkchen -> Standby
ergeb = Shell("rundll32.exe powrprof.dll,SetSuspendState", vbHide)
End Sub

Wie kann ich das Notebook per VBA Code aus dem Standby aufwecken?
Grüße
Peter