نیازی به این همه دنگ و فنگ نیست!!!!!!
از تابع DateDiff و Format استفاده کنید.

DateDiff برای گرفتن اختلاف روز،ماه،هفته،سال و کلا برای کار با تاریخ ها هست.
Format هم برای فرمت بندی داده ها هست که به شکل ها گوناگونی میشه دسته بندی و نمایششون داد.

نمونه DateDiff:

MsgBox DateDiff ("d" , Format(Text1.Text , "mm/dd/yyyy") , Format(Text2.Text , "mm/dd/yyyy")


این تابع اول داده های Text1,Text2 رو به صورت تاریخ استاندارد در میاره و بعد با استفاده از شمارنده "d" روزهای بین این دو تاریخ رو نمایش میده.