Since I do not have VB on this machine, I can't look in my API viewer, but another suggestion is to create your own with the Split() function.

VB Code:
  1. vList = Split(sPath)
  2. sShortPath = vList(0) & "\" & vList(1) & "\" & "..." & "\" & UBound(vList)