[VB.NET] controllo datetime

[Beziel]

ho provato as assegnare questo codice alla funzione che dovrebbe formattare la data ma non funziona:

Protected Sub formatdataa(ByVal sender As Object, ByVal e As ConvertEventArgs)
        If Not IsDBNull(e.Value) Then
            Dim a As String
            a = e.Value.ToString.Substring(6)
            a = CDate(e.Value.ToString.Substring(0, 4) & "/" & e.Value.ToString.Substring(4, 2) & "/" & a)
            If a <> "//" Then
                e.Value = a
            End If
        Else
            DateTimePicker1.Checked = False
        End If
    End Sub

non riesco a disattivare il controllo datetime in caso di campo nullo o vuoto mi aiutate?


Grazie

P.S: La data nel db è nel formato yyyyMMdd