<code><font color=green>' zunächst die benötigten API-Deklarationen</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</code>

<code>Dim strFilename As String
 
strFilename = "MeinWord.doc"
ShellExecute Me.hWnd, "Open", strFilename, vbNullString, vbNullString, 1</code>