Sub WinFileOpen(fName As String) 
  Dim R 
 
  Dim sPath As String
  sPath = Left$(fName, InStrRev(fName, "\") - 1)
  If Left$(sPath, 2) <> Left$(CurDir, 2) Then
    ChDrive Left$(sPath, 2)
  End If
  If Len(sPath) < 3 Then sPath = sPath & "\"
  ChDir sPath
 
  ' Verzeichnis/Datei öffnen 
  R = Shell(fName, vbNormalFocus) 
End Sub