XPS To PDF File in VB.Net

Select .Net 3.5 Framework

Private Sub XPSToPDF(ByVal xpsFile As String, ByVal PDFFile As String)
        PdfSharp.Xps.XpsConverter.Convert(xpsFile, PDFFile, 0)
End Sub

Add Reference

PDFSharp.Xps  (search on Google)