Private Sub Command1_Click()
Const str As String = "Текст"
    Debug.Print GetTypeString(str)
    Debug.Print GetTypeControl(Text1)
    Debug.Print GetTypeControlInString(Text1)
End Sub
Public Function GetTypeString(x As Variant) As Boolean
If TypeName(x) = "String" Then
    GetTypeString = True
End If
End Function
Public Function GetTypeControl(x As Control) As Boolean
If TypeOf x Is TextBox Then
    GetTypeControl = True
End If
End Function
Public Function GetTypeControlInString(x As Variant) As Boolean
If TypeName(x) = "TextBox" Then
    GetTypeControlInString = True
End If
End Function