Using the fileSystemObject I changed the names into 8.3 names (the shortPath method):

function shortName(longName as string) as string
dim bulb as file
dim FSO as object

'instantiate
set FSO = CreateObject("Scripting.FileSystemObject")
set bulb = FSO.getFile(longName)

'return results
shortName = bulb.shortPath

'destructors
set bulb=nothing
set FSO=nothing

end function