Búsqueda entre 2 fechas

[Kruzado]

If Len(Trim(Text6.Text)) >= 1 Then
bla bla bla
Else
Command1.SetFocus
End If

si el largo de text6 es menor a 1, o sea 0 o sea el campo en blanco... no debe enviar un mensaje de advertencia donde le digas que no ingreso fecha?????, esto en vez de mandarlo a un boton que haga un proceso donde a la larga puede faltar un dato...