怎么将"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)