VBA/Excel/Access/Word/Application/Immediate Window

Clear immediate window

   <source lang="vb">

Sub ImmediateWindowClear()

  Application.VBE.Windows.Item("Immediate").SetFocus
  Application.SendKeys "^a"
  Application.SendKeys "{del}"

End Sub

</source>