i = 0
d = 0
For Each s In Directory.GetFiles((NewPath), "*.pdf")
myArray.Add(Mid(s, 12, 8))
xs = myArray.Item(i)
x = xs
i = i + 1
a = Mid(myArray.Item(d), 1, 4)
b = Mid(myArray.Item(d), 5, 2)
c = Mid(myArray.Item(d), 7, 2)
MsgBox(a & " " & b & " " & c)
calendarView.AnnuallyBoldedDates = New...