REPLACE APPLICATION.NAME.cdr with .PDF

I have encountered an Issue where I save my PDF to a "Specified Folder" on my local computer by Application.Name. 

Example: Name of Doc. Is "Test" 

Test.cdr but when I save my PDF out by Application.Name it save its as Test.cdr.pdf when I really need it as test.pdf

How do I eliminate the .cdr extension from the name? Or is that even possible? Ignore the 'comment blocks. We work remotely from a special program that auto adds dsn numbers to a proof (which is why Im trying to fix the name issue) But local desktop cannot because program only exists on remote server. So I have to manually add dsn number there if I work from Local. 

Private Sub cmdPDF_Click()
On Error Resume Next
ActiveDocument.PublishToPDF folderPath & ActiveDocument.Name & ".pdf" ' pull from name from active document on remote system for ledger 
'''ActiveDocument.PublishToPDF folderPath & TextBox8.Text & ".pdf" 'manually add in info for ledger(local desktop)
End Sub

Public Function folderPath() As String
folderPath = CreateObject("WScript.Shell").SpecialFolders("") & "\\ac-fs1\F\Artproofs1\ModularTiles Proofs\Design_"
End Function

Think you can help???