it is in the root folder.  no response when button clicked.

Private Sub btnPriceBook_Click()

Dim lngShellRes As Long
lngShellRes = fcnShell("wceload.exe", "/noaskdest /noi
'\iDeal_1.002.CAB'", 0)
If lngShellRes <> 0 Then MsgBox "Shell error " & lngShellRes

End Sub

Public Function fcnShell(ByVal strApp As String, ByVal strFile As
String, lngProcessHdl As Long) As Long

Dim strProcessInfo As String

Dim lngRes As Long
Dim lngThread As Long
Dim lngProcessID As Long
Dim lngThreadID As Long

' Initialize PROCESS_INFORMATION memory string.
' Convert initial Rect values to String to pass into CreateProcess
API.
strProcessInfo = fcnInitProcessInfo(0, 0, 0, 0)

lngRes = fcnCreateProcess(strApp, strFile, 0, 0, 0, 0, 0, 0, 0,
strProcessInfo)

'failure
If lngRes = 0 Then
   lngRes = GetLastError
Else
   lngRes = 0
End If

'convert string back to long integer
subGetProcessInfo strProcessInfo, lngProcessHdl, lngThread,
lngProcessID, lngThreadID

fcnShell = lngRes
   
End Function