What is the problem ?

String in an array ?

Username var Byte(size_of_username)

Writing to LCD ?

LCDOUT STR Username\size_of_username

Writing to EEPROM ?

For I=0 to size_of_username:Write EEProm_Adress+I,Username[I]:Next I

???