HBExPE

Sub HBExPe()
'********************************************************************
	On error resume next
	Application.ActiveWindow.Command "k", False
	Application.ActiveWindow.Title.Find "7001", False, False, False
	Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.Title.InsertText "xp"
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "4801 "
	Application.ActiveWindow.Title.LineDown
	Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "7109 "
	Application.ActiveWindow.Title.LineUp 3
	Application.ActiveWindow.Title.EndOfField
	Application.ActiveWindow.Title.InsertText vbCR
	Application.ActiveWindow.Title.InsertText "5301 "
End Sub