Excel - dtpicker vacio

Hola muy buenas, tengo un formulario donde tengo un dtpicker que me coge un valor de una celda de excel y me lo representa....31/12/2006. pero si esa celda esta vacia, como puedo hacer para que no me aparezca vacio el dtpicker?????

Gracias

Suponiendo que coje el valor del A1:

Private Sub UserForm_Initialize()
If [a1] = "" Then
DTPicker1.Value = CDate("01/01/2005")
Exit Sub
End If
DTPicker1.Value = [a1]
End Sub

Abraham