open file in a folder

Hi to all.
This macro open a forder:

Sub apriCartella1()

On Error GoTo uscita

ChDir "C:\Documenti\controllati\gr1"

Application.Dialogs(xlDialogOpen).Show

uscita:
If Err.Number <> 0 Then
  ' MsgBox "la cartella non esiste o è stata spostata o cancellata", vbCritical, "ATTENZIONE!"
MsgBox "la cartella non esiste o è stata spostata o cancellata", vbExclamation, "ATTENZIONE!"
End If

End Sub

in this foder there is 3 type of file xls - xlsx - pdf
if I click in the excel files they open normally
if I click in a pdf it opens "text wizard" to view the pdf I have to right mouse> open.
Because?

I hope I have explained
max