Datagrid

[ivan2009]

hola si alguien me ayudar a validar la fecha en una columna de una datagrid, ya que lo que tengo no m funciona, aqui les pongo el codigo que uso:

Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
If ColIndex = 5 Then
With DataGrid1
If Format(Len(.Columns(5).Value), "yyyy-mm-dd") > Format(Date, "yyyy-mm-dd") Then
Label6.Caption = "Verifique alguna data está mal."
End If
End With
End Sub

pero no me valida las fechas y me sale error, por favor desde ya muchas gracias a ustedes por su ayuda