Not really. It was spawned from, but it's not a translation of the VB code. Plus -- the VB code was more ambitious, recursively processing what directory was passed to it.
The VB version of this LISP wuold be more like (not saying it's good code) --
Function GetShortCutTarget(shortCutPath As String) As String
On Error Resume Next
Dim shell As Object, _
shortcut As Object, _
result As String
Set shell = CreateObject("WScript.Shell")
Set shortcut = shell.CreateShortcut(shortCutPath)
result = shortcut.TargetPath
If Err.Number Then Err.Clear
GetShortCutTarget = result
End Function
etc. so it's about as clean / dirty as the LISP is. Mind you a lot has to do with who is the author, i.e. I bashed the lisp and vb out quick; I'm sure it could (and probably should) be written better, I just don't have the time right now.
Oh look, my boss. Recloak.