Function TDate(VDate As String) As Variant
    If Len(VDate) <> 0 Then
        TDate = CDate(Right(VDate, 2) & "/" & Mid(VDate, 5, 2) & "/" & Left(VDate, 4))
        Else
            TDate = ""
    End If
End Function

