要するに Windowsキー + Mキー を実現するだけ。

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_LWIN = &H5B            'Windowsキー
Private Const VK_M = 77                 'Ｍキー
Private Const KEYEVENTF_KEYUP = &H2     'キーが放されたフラグ

'-----------------------------------------------------------------------
' 関数名 ： ShowDesktop
' 機能   ： デスクトップを表示する
' 引数   ： (in) なし
' 戻り値 ： なし
'-----------------------------------------------------------------------
Public Sub ShowDesktop()

    '押下
    Call keybd_event(VK_LWIN, 0, 0, 0)  'Windowsキー
    Call keybd_event(VK_M, 0, 0, 0)     'Ｍキー

    '押下解放
    Call keybd_event(VK_M, 0, KEYEVENTF_KEYUP, 0)     'Ｍキー
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)  'Windowsキー

End Sub

まあ１通りの例を挙げたのみだが、

Private Const VK_F = 70  'Ｆキー
Private Const VK_R = 82  'Ｒキー

上記のコードを改造して VK_F を指定すれば検索ダイアログボックスが表示されるし、VK_R を指定すればファイル名を指定して実行ダイアログボックスが表示される。色々と転用が利きますな。