RegExp + проверка даты - VB

Формулировка задачи:

есть такон выражение
проверка даты mm/dd/yyyy
^(?=\d)(?:(?:(?:(?:(?:0?[13578]|1[02])(\/|-|\.)31)\1|(?:(?:0?[1,3-9]|1[0-2])(\/|-|\.)(?:29|30)\2))(?:(?:1[6-9]|[2-9]\d)?\d{2})|(?:0?2(\/|-|\.)29\3(?:(?:(?:1[6-9]|[2-9]\d)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:16|[2468][048]|[3579][26])00))))|(?:(?:0?[1-9])|(?:1[0-2]))(\/|-|\.)(?:0?[1-9]|1\d|2[0-8])\4(?:(?:1[6-9]|[2-9]\d)?\d{2}))($|\ (?=\d)))?(((0?[1-9]|1[012])(:[0-5]\d){0,2}(\ [AP]M))|([01]\d|2[0-3])(:[0-5]\d){1,2})?$
как сделать чтобы проверка была dd/mm/yyyy
день 2 цифры + коректные значения
месяц 2 цифры+ коректные значения
год 4 цифры
год начинался с 19 или 20
проверка на кол-во дней в месяце + (високосный год)
Спасибо

Решение задачи: «RegExp + проверка даты»

textual
                            Листинг программы 
                        
                            <font color="blue">If</font> IsDate(strDate) <font color="blue">Then</font>
<font color="blue">End</font> <font color="blue">if</font>