VBE IMMEDIATE WINDOW

Now It's hard for me to explain, but I need it

ok, but ...

Sub test()
Dim obj As Object
Set obj = Application.VBE
For I = 1 To obj.Windows.Count
If obj.Windows.Item(I).Caption = "Immediate" Then
Debug.Print (obj.Windows.Item(I).Caption)
obj.Windows.Item(I).SetFocus
SendKeys "^{Home}", True
SendKeys "^+{End}", True
SendKeys "{Del}", True
End If
Next I
End Sub

Hello,
I thank for Your answer!
Below is my code to empty immediate window

Sub immediate_window_BhBp_clear()
'CLEAR IMMEDIATE WINDOW
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^g^a{DEL}"
End Sub

How to run code above
.
Place this code in any Macros module
Open VBE
Press Ctrl-g 'to open immediate window

print "immediate" in immediate window
Press Ctrl-space 'drop down list with macros beginning with "immediate" appears
Select necessary macro using mouse or arrows - immediate_window_BhBp_clear
Press key Enter

I see, that You use 
SendKeys "{Del}", True
I don't understand why SendKeys "{Del}", True return error Permission denied
I am forced to use workaround code using
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^g^a{DEL}"
 

Greetings!