I KNOW!!!!

I have asked this before and had good answers but now I'm after a different bit of info!!!

Why doesn't this work?

Code:
Function DoZip_Run(ByVal iFile%, ByVal sPath$, ByVal sFile$)

    Dim sWLoc$
    Dim sLLoc$
    Dim sTempPath$
    
    
    sWLoc = "C:\Program Files\WinZip\WZZIP.EXE"
    sLLoc = sPath & "ZipFile(" & iFile & ").ZIP"

    'wzzip [options] zipfile [@listfile] [files...]
    'wzzip -u test @zipit.lst
    sTempPath = sWLoc & " -a " & sLLoc & " @ " & sFile

    Shell sTempPath
    
End Function

End Function