Åben pdf

Hej
Den skal åbne .pdf og ikke .doc er der en der kan hjælpe med det.

Private Sub ListBox1_Click()

  Dim FilePath As String
  Dim FileName As String
  Dim FileToOpen As String
 
    If ListBox1.ListIndex > -1 Then
      FilePath = "C:\Test"
     
      FileName = ListBox1.List(ListBox1.ListIndex, 1)
   

      FileToOpen = Chr$(34) & FilePath & "\" & FileName & Chr$(34)
   
      Shell "winword.exe" & " " & FileToOpen
    End If

End Sub


M.V.H
w126