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

    If ctrl.Controls.Count > 0 Then ' Got Lable
        ctrl.Controls(0).FontBold = True
        ctrl.Controls(0).ForeColor = 6174487 ' Dark Blue
    End If

Просто вывод инфы:

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

Ещё вариант через .Properties("LabelName"):

Private Sub TextField01_GotFocus()
    Me.Controls(Me.ActiveControl.Properties("LabelName")).FontBold = True
End Sub