Как узнать, что ActiveControl имеет свойство Text?

Status_what ActiveControl.Text
 
Private Sub Status_what(ku As String)
sta1.Panels(2) = ku
End Sub

on error resume next
Status_what ActiveControl.Text
if err.number<> 0 then msgbox "нет свойства Text"
on error goto 0

' КОД ФОРМЫ (имеющей минимум один контрол, способный принять фокус):
Option Explicit
'
Private Sub Form_Activate()
    Dim rez As Boolean
    
    rez = ControlHasProperty(Me.ActiveControl, 'Text')
    If rez Then
        MsgBox 'Контрол ' & Me.ActiveControl & ' имеет свойство Text.'
    Else
        MsgBox 'Контрол ' & Me.ActiveControl & ' не имеет свойства Text.'
    End If
End Sub
'
Private Function ControlHasProperty(ByVal YourControl As Control, ByVal PropertyName As String) As Boolean
    Dim propList As Collection
    Dim propMember As clsMember
    
    ControlHasProperty = False
    
    Set propList = CollectProperties(YourControl)
 
    For Each propMember In propList
        If propMember.MemberName = PropertyName Then
            ControlHasProperty = True
            Set propList = Nothing
            Exit Function
        End If
    Next
 
    Set propList = Nothing
End Function
'
Private Function CollectProperties(Target As Object) As Collection
   Dim oTLB As InterfaceInfo
   Dim sMemberName As String
   Dim sInvokeKind As String
   Dim i As Integer
   Dim kFuncReturn As Collection
   Dim o As clsMember
   
   Set kFuncReturn = New Collection
   
   Set oTLB = TLI.InterfaceInfoFromObject(Target)
   For i = 1 To oTLB.Members.Count
      sInvokeKind = ReturnInvokeKind(oTLB.Members(i).InvokeKind)
      If InStr(1, sInvokeKind, 'INVOKE_PROPERTYGET') > 0 Then
         sMemberName = oTLB.Members(i)
         If Left$(sMemberName, 1) <> '_' Then
            Set o = New clsMember
            o.MemberName = sMemberName
            o.MemberType = sInvokeKind
            kFuncReturn.Add o
         End If
      End If
   Next
   
   Set CollectProperties = kFuncReturn
End Function
'
Private Function ReturnInvokeKind(Value As Long) As String
   Dim sFuncReturn As String
   Select Case Value
      Case INVOKE_UNKNOWN
         sFuncReturn = 'INVOKE_UNKNOWN'
      Case INVOKE_FUNC
         sFuncReturn = 'INVOKE_FUNC'
      Case INVOKE_PROPERTYGET
         sFuncReturn = 'INVOKE_PROPERTYGET'
      Case INVOKE_PROPERTYPUT
         sFuncReturn = 'INVOKE_PROPERTYPUT'
      Case INVOKE_PROPERTYPUTREF
         sFuncReturn = 'INVOKE_PROPERTYPUTREF'
      Case INVOKE_EVENTFUNC
         sFuncReturn = 'INVOKE_EVENTFUNC'
      Case INVOKE_CONST
         sFuncReturn = 'INVOKE_CONST'
   End Select
   
   ReturnInvokeKind = sFuncReturn
      
End Function
'
' КОД МОДУЛЯ КЛАССА clsMember:
Option Explicit
'
Public MemberName As String
Public MemberType As String