Attribute VB_Name = "testwindow3"
Sub ƒeƒXƒg()
    
    Dim window1 As Window
    
    Set window1 = ActiveWindow
    MsgBox window1.Caption
    
End Sub