Make sure you have A0,A1,A2 on your EEPROM at ground.

Make these few changes to your existing code.

CNTRL VAR BYTE ' added for control byte
CNTRL = %10100000 ' value of control byte

EWrite:
I2CWRITE SDA,SCL,CNTRL,Addr,[E_ByteOut] ' Write out the byte
Pause 10 ' Delay 10ms after each write
Return

ERead:
I2CREAD SDA,SCL,CNTRL,Addr,[E_ByteIn] ' Read in the byte
Return

Does this work?