Private Declare Function GetShortPathName Lib "kernel32" _
      Alias "GetShortPathNameA" ( _
      ByVal lpszLongPath As String, _
      ByVal lpszShortPath As String, _
      ByVal cchBuffer As Long) As Long

Imports System.Runtime.InteropServices
   Declare Unicode Function GetShortPathName Lib "kernel32.dll" Alias _
     "GetShortPathNameW" (ByVal longPath As String, <MarshalAs( _
     UnmanagedType.LPTStr)> ByVal ShortPath As System.Text.StringBuilder, _
     <MarshalAs(UnmanagedType.U4)> ByVal bufferSize As Integer) As Integer