Private Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
        As String, ByVal lpFile As String, ByVal lpParameters _
        As String, ByVal lpDirectory As String, ByVal nShowCmd _
        As Long) As Long
 
 
Private Sub Command1_Click()
     x = ShellExecute(0, "Open", PfadZurDatei, "",  "C:\Dokumente und" & _
       "Einstellungen\Benutzer\EIgene Dateien", 1)
End Sub