msg box da tarih kriterine göre sonuçları biçimlendirmek

Merhaba Çalışmamda workbook open yordamına yazığım aşağıdaki kod ile MuayeneBitiş tarihi o gün olan araçları listeliyorum. Çözmem gereken 2 sorun var bu konuda birincisi Listelemeye çalıştığım sadece o gün değil bir haftalık periyottaki araçların listesini msgbox da yazdırmak. Yani koda date +7...