vb 赋值给时间变量

在vb中，我想把text1中的值赋给一个时间变量a，
如果直接写成a=text1.text 这样a的值的类型好像是字符串型。正确的写法是什么啊？请帮帮我。。。

---

dim a as date
a=text1.text
可以直接赋值，隐渗VB会自动转换类型的，反正我一春汪直这灶森脊么用的

---

a=cdate(text1.text)

---

Dim d As Date
If IsDate(Text1.Text) Then
d = Text1.Text
Debug.Print d
Else
MsgBox Text1.Text & "茄烂春 is not a valid date."颤耐历猜
End If

---

a=Cdate(text1.text)，转换为日期格式数据

---