Private Declare Function GetActiveWindow Lib "user32" () As Long
 
Private Declare Function GetWindowText Lib "user32" Alias _
   "GetWindowTextA" (ByVal hWnd As Long, _
   ByVal lpString As String, ByVal cch As Long) As Long
 
 
Private Function GetTheActiveWindowCaption() As String
    Dim nhWnd As Long
    Dim sBuffer As String
 
    sBuffer = Space(255)
 
    nhWnd = GetActveWindow()
    GetWindowText nhWnd, sBuffer, 255
 
    GetTheActiveWindowCaption = Trim(sBuffer)
End Function