Определение Label (Надписи) Элемента Управления Формы

Dim sVal$, sName$
'Reading Label Name Property and Caption
    sName = Me.txtDateTo.Controls(0).Name
    sVal = Me.txtDateTo.Controls(0).Caption
    Debug.Print "Lavel: " & sName & " -  Caption: " & sVal