Macro fil navn like 8,celle,x,filename

Jeg har en kode som ser om en fil er i en mappe
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & "Fix-" & Cells(r, 5) & X & "KV" & Filnavn  ) <> "" Then
X = "" el. W el WS.
Det jeg vil have den til er at være ligeglad med de første 8 tegn som er dato "yyyymmdd" de næste 5 tegn skal passe tegn 9 to 13 og fra enden hvis .pdf skal være med 6 tegn left skal også passer.

så den ikke laver fejl sidste dag i måneden for de den arbejder en dag forud, og hvis W og WS skulle frem fomme i filnavnet skal den ikke tage sig af det.