Scusa non era SHELL32 ma RUNDLL32.EXE

di seguito ti riporto questo pezzettino di codice di esempio

codice:
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " &  "C:\MiaDirectory\MioFile.pdf", vbMaximizedFocus)
Saluti