Private Declare Function GetWindowTextW Lib "USER32" (ByVal hWnd As Long, ByVal _
  lpString As String, 
ByVal nMaxCount As Long) As Long
Dim hwCurr As Long
Dim nLen As Long, m_sText As String
nLen = GetWindowTextLengthW(hwCurr) + 1
If (nLen > 1) Then
  m_sText = String$(nLen, 0)
  GetWindowTextW hwCurr, StrPtr(m_sText), mLen
  nLen = InStr(m_sText, vbNullChar)
  If nLen > 1 Then
    m_sText = Left$(m_sText, nLen - 1)
  End If
End If