Тут весь корень проблемы состоит в том, что многие VB функции для работы с датой используют региональные настройки виндов и об этом никогда нельзя забывать.
Я уже сталкивался с программами, которые глючили при нестандратном формате даты в виндах (можно хоть такой поставить: 2004-11-24). Решение:
1. ср-вами API можно получить формат даты с разделителями или засунуть свою дату, а на выходе получить уже в текщем формате.
2. ср-вами VB:
2.1 Если вам надо получить текстовую строку нужного формата, а на руках у вас переменная типа Date, то используйте Format:
Format(Date,"mm/dd/yyyy")
2.2 Если у вас наоборот строка или в отдельных переменных день, месяц, год, тогда спасение функция DateSerial()
Dim d as Date

iDay=CInt(strDay)
iMon=CInt(strMon)
iYear=CInt(strYear)
d=DateSerial(iDay, iMon, iYear)

Ну и на последок, не забывать еще, что в VB в формате Date хранится дата вместе со временем. Так что если вы напишите d=Now(), то получите дату со временем и в:
If d=Date Then...
никогда не полчите True, потому что чистая дата Date будет не равна переменной d, в которой в дробной части лежит время в секундах с начала дня