怎么将"20070517"转换成DATE类型？

如何将"20070517"转换成DATE类型？急
将一个STRING类型的，比如 "20070517 "转换成CDate（）可以用的DATE类型呢？

[解决办法]
dim a as date
a=cdate( "20070517 ")
[解决办法]
dim s as string
dim d as date

s = "20070517 "
s = format(s, "####-##-## ")
d = cdate(s)