Determine if a String Contains a Valid Date

Use IsDate to determine if a string contains a valid date.

Dim d1, d2, d3

d1 = "August 12, 2004"
d2 = "12/25/2000"
d3 = "Chilkat Software"

result = IsDate(d1)   ' Returns True.
result = IsDate(d2)   ' Returns True.
result = IsDate(d3)   ' Returns False.