How do I select a directory path in a macro using only the first part of the last directory path? Wildcard doesn’t work

Sub Quote2PDF1a()
' Quote Macro
Application.DisplayAlerts = False
    Range("B3:B13").Select
    Range("B13").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
   With ActiveSheet
   .EnableSelection = xlNoSelection
   .Protect
   End With

    Path = "\MyServerMIS$IHC-DesktopDocumentationRFSRequestsAssessments" & Range("F1") & "*" & "" & Range("D1") & " " & Range("E1") & " for " & Range("B1")

                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Path, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True