Private Const MAX_PATH As Long = 260&
 
Private Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" ( _
    ByVal lpszLongPath As String, ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) As Long
 
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 ShellPath(ByVal szPath As String, ByVal szFileName As String)
    Dim Path As String
 
    Path = Space(MAX_PATH)
    Call GetShortPathName(szPath & IIf(VBA.Right(szPath, 1) = _
    "\", "", "\") & _
        szFileName, Path, MAX_PATH)
 
    Call ShellExecute(0, "Open", Path, "", szPath, 1)
End Sub

ShellPath "c:\eigene dateien\eigene bilder","test.jpg" ' rufe c:\eigene 
' dateien\eigene bilder\test.jpg auf