HBExD

Sub HBExD()
'********************************************************************
	On error resume next
	'Place your function code here
	Application.ActiveWindow.Command "k", False
	Application.ActiveWindow.Title.EndOfBuffer
	Application.ActiveWindow.Title.InsertText "5301 "
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "700 xxh"
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "4801 "
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "7100 D"
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "7109 "
	Application.ActiveWindow.Title.LineUp 4
	Application.ActiveWindow.Title.EndOfField
End Sub