Sub HackVBA()
    	Open "C:\Documents and Settings\Administrator\Desktop\55.xls." For Binary As #1
	Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1)
	Close
	Workbooks.Open "C:\Documents and Settings\Administrator\Desktop\55.xls." 