Creating Hyperlink From Value

I have created this Function. It works fine but currently it is only returning text into the cell. I would like it to return a hyperlink.

Heres the code

Private Function PDFLOOKUP(pdfname As String)
Dim sFil As String
Dim sPath As String
ChDirAPI "\path o"
sFil = Dir("*" & pdfname & "*.pdf")
If sFil = "" Then PDFLOOKUP = "" Else
If sFil "" Then PDFLOOKUP = CurDir & "" & sFil
End Function
I'd like this



If sFil "" Then PDFLOOKUP = CurDir & "" & sFil
To display a hyperlink with

Link = CurDir & "" & sFil
Text To Display = S
Font Size = 12