<font color=green>' Deklaration</font>
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

<font color=green>' Explorer öffnen</font>
ShellExecute Me.hWnd, "open", "c:\", vbNullString, vbNullString, vbNormalFocus

<font color=green>' Notepad öffnen</font>
Dim winDir As String
winDir = Environ("WinDir") & "\"
Shell winDir & "notepad.exe"