نیازی به این همه دنگ و فنگ نیست!!!!!!
از تابع DateDiff و Format استفاده کنید.
DateDiff برای گرفتن اختلاف روز،ماه،هفته،سال و کلا برای کار با تاریخ ها هست.
Format هم برای فرمت بندی داده ها هست که به شکل ها گوناگونی میشه دسته بندی و نمایششون داد.
نمونه DateDiff:
MsgBox DateDiff ("d" , Format(Text1.Text , "mm/dd/yyyy") , Format(Text2.Text , "mm/dd/yyyy")
این تابع اول داده های Text1,Text2 رو به صورت تاریخ استاندارد در میاره و بعد با استفاده از شمارنده "d" روزهای بین این دو تاریخ رو نمایش میده.