[Линда Кайе]

Тестируем...

Option Explicit



Declare Function GetWindowTextW Lib "User32" (ByVal hWnd As API_HANDLE, _

                 lpString As Any, ByVal nMaxCount As Long) As Long



'====================================================================

Public Sub Main()

  Dim Buff() As Byte

  Buff = String(1025, 0)

  

  GetWindowTextW &H20978, Buff(0), 1024

  MsgBox asGetStringFromPointerByAnyW(Buff(0))

End Sub

Тестируем....