Hola seba justo estaba biendo eso, de todas formas con sendmessage se puede consultar sin utilizar la varialbe interna
Public Property Get CheckValue() As Boolean
Dim tST As SYSTEMTIME
CheckValue = SendMessage(mhwnd, DTM_GETSYSTEMTIME, GDT_NONE, tST) = GDT_VALID
End Property
Saludos.