VBA - hvis sti/bibliotek/mappe ikke findes

Har denne kode, som jeg har fået hjælp til:

Option Explicit

Private mstrFileNames() As String
Private miX As String
Public PDFNavn, PDFFilnavn As String

Public Sub DebugPrintFilesNames()
    Dim iZ As Integer
    Dim wbTemp As Workbook
    Dim sUserPath As String
   
    sUserPath = UserSelectFilePath
    FindTheFiles sUserPath, "xls"
   
    For iZ = 1 To miX
   
        'Åben fil
        Set wbTemp = Application.Workbooks.Open(sUserPath & mstrFileNames(iZ))
               
        Range("A1").Select
        ActiveCell.FormulaR1C1 = _
            "=MID(CELL(""filnavn""),FIND(""["",CELL(""filnavn""))+1,FIND("".xls"",CELL(""filnavn""))-FIND(""["",CELL(""filnavn""))-1)"
        PDFNavn = ActiveCell.Value
       
        PDFFilnavn = sUserPath & "PDFTest\" & PDFNavn & ".pdf"
   
        Sheets(1).Select
       
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFilnavn, Quality _
            :=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
       
        ' Luk fil
        wbTemp.Close SaveChanges:=False
        Set wbTemp = Nothing
    Next iZ

End Sub

Public Function UserSelectFilePath() As String
    Dim sRetVal
    Dim vntFileToOpen As Variant
    Dim iChar As Integer
   
    vntFileToOpen = Application.GetOpenFilename("Text Files (*.xls), *.xls")
    If vntFileToOpen <> False Then
        'MsgBox "Open " & vntFileToOpen
        For iChar = Len(vntFileToOpen) To 1 Step -1
            If Mid(CStr(vntFileToOpen), iChar, 1) = "\" Then
                sRetVal = Left(CStr(vntFileToOpen), iChar)
                Exit For
            End If
        Next iChar
    End If
   
    UserSelectFilePath = sRetVal
End Function

Den danner PDF-filer ud af fra en udvalgt mappe. Og gemmer disse filer afhængigt af indhold i filen i en defineret mappe.

Inden den gemmer som PDF - hvorledes får jeg den til at lave en kontrol af om mappen findes. Og evt. giver brugeren en besked - og derefter går videre?