Как получить путь к файлу в DOS виде (c:progra~1) - VB

Declare Function GetShortPathName& Lib 'kernel32' Alias 'GetShortPathNameA' _
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer _
As Long)
 
Public Function GetDosFileName(WinFileName As String) As String
  Dim o As Long
  Dim inpStr As String, outStr As String
  
  inpStr = WinFileName
  outStr = String$(510, 0)
  o = GetShortPathName(inpStr, outStr, Len(outStr))
  outStr = Left(outStr, o)
  GetDosFileName = outStr
End Function