Function AcroRdOpen(sPDFName As String, _
lWindowFocus As Long) As Boolean
Dim sOpenCmd As String
Dim sShellCmd As String
Dim i As Integer
Dim result
On Error Resume Next
AcroRdOpen = True
'Get AcroRd32 "open" command from Windows Registry
sOpenCmd = gcAcroRdOpen()
'(Error checking omitted here for brevity)
i = InStr(sOpenCmd, "%1")
If i > 0 Then
sShellCmd = Left(sOpenCmd, i - 1) _
& Chr(34) & sPDFName & Chr(34)
Else
sShellCmd = sOpenCmd & " " _
& Chr(34) & sPDFName & Chr(34)
End If
result = Shell(sShellCmd, lWindowFocus)
AcroRdOpen = (result = 0)
End Function