Pfadangabe als Hyperlink deklarieren

Sub ordner_auflisten_neu()
Dim vntRet As Variant, strTMP As String
Dim pfad As String, ausgabe$()
Dim i&, p&
pfad = Master.Range("StrQOrdner").Value
If Len(pfad)  "\" Then pfad = pfad & "\"
strTMP = CreateObject("wscript.shell").exec("cmd /c Dir """ _
& pfad & Master.Range("StrDatFil") & """ /s /b").stdout.readall
Call OemToCharA(strTMP, strTMP)
vntRet = Split(strTMP, vbCrLf)
If UBound(vntRet) > 0 Then
D_Liste.Cells.ClearContents
ReDim ausgabe(1 To UBound(vntRet) + 1, 1 To 1)
For i = 0 To UBound(vntRet)
ausgabe(i + 1, 1) = vntRet(i)
Next
If ausgabe(UBound(ausgabe), 1) = "" Then p = 1 Else p = 0
D_Liste.Range("B1").Resize(UBound(ausgabe) - p, 1) = ausgabe
ReDim vntRet(1 To UBound(ausgabe) - p, 0)
For i = 1 To UBound(vntRet): vntRet(i, 0) = i: Next
D_Liste.Range("A1").Resize(UBound(ausgabe) - p, 1) = vntRet
Master.Range("AnzDatein").Value = UBound(ausgabe) - p
Else
Master.Range("AnzDatein").Value = 0
End If
End Sub