here is something i came across awhile back which i had totaly forgotten about maybe someone else here will find use from it.

you can find documentation on storm.dll from the mopaq page, which i cant remember the link or id link it here now 8\

[code]
Declare Function SFileCloseArchive Lib "Storm.dll" Alias "#252" (ByVal hMPQ As Long) As Boolean
Declare Function SFileCloseFile Lib "Storm.dll" Alias "#253" (ByVal hFile As Long) As Boolean
Declare Function SFileDestroy Lib "Storm.dll" Alias "#262" () As Boolean
Declare Function SFileGetFileArchive Lib "Storm.dll" Alias "#264" (ByVal hFile As Long, ByRef hMPQ As Long) As Boolean
Declare Function SFileGetFileSize Lib "Storm.dll" Alias "#265" (ByVal hFile As Long, ByRef lpFileSizeHigh As Long) As Long
Declare Function SFileOpenArchive Lib "Storm.dll" Alias "#266" (ByVal lpFileName As String, ByVal dwPriority As Long, ByVal dwFlags As Long, ByRef hMPQ As Long) As Boolean
Declare Function SFileOpenFile Lib "Storm.dll" Alias "#267" (ByVal lpFileName As String, ByRef hFile As Long) As Boolean
Declare Function SFileOpenFileEx Lib "Storm.dll" Alias "#268" (ByVal hMPQ As Long, ByVal lpFileName As String, ByVal dwSearchScope As Long, ByRef hFile As Long) As Boolean
Declare Function SFileReadFile Lib "Storm.dll" Alias "#269" (ByVal hFile As Long, lpBuffer As Byte, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Boolean
Declare Function SFileSetBasePath Lib "Storm.dll" Alias "#270" (ByVal lpNewBasePath As String) As Boolean
Declare Function SFileSetFilePointer Lib "Storm.dll" Alias "#271" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lplDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Declare Function SFileSetLocale Lib "Storm.dll" Alias "#272" (ByVal nNewLocale As Long) As Long
Declare Function SFileGetBasePath Lib "Storm.dll" Alias "#273" (ByVal lpBuffer As String, ByVal dwBufferLength As Long) As Boolean
Declare Function SFileGetArchiveName Lib "Storm.dll" Alias "#275" (ByVal hMPQ As Long, ByVal lpBuffer As String, ByVal dwBufferLength As Long) As Boolean
Declare Function SFileGetFileName Lib "Storm.dll" Alias "#276" (ByVal hMPQ As Long, ByVal lpBuffer As String, ByVal dwBufferLength As Long) As Boolean
[/code]

You'd be better off using SFMPQAPI directly or via the SFMPQAPI ActiveX control (http://shadowflare.ancillaediting.net) instead of Storm from VB.