Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
GetWindowTextLength возвращает длину в символах текста в заголовке окна, если таковой имеется. Если окно является элементом управления, функция возвращает длину его текста. В случае ошибки функция возвращает 0
' Вычисляем длину заголовка формы Form1 Dim textlen As Long ' длина заголовка ' вычисляем количество символов в заголовке textlen = GetWindowTextLength(Form1.hWnd) Debug.Print "Длина заголовка: "; textlen