Thank you so much, problem solved.

- Gary

"Gary" wrote in message
...
Hi,

I am getting the error

Compile error! "Cannot find project or library"

for the following code in excel.

The error is thrown for functions such as chr(), mid(), ucase() etc.

--------------------------------------------------------------------------
--
----------------------

'---- Username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

Username = ""

For i = 1 To Len(lpBuff)

If Asc(Mid(lpBuff, i, 1)) 0 Then Username = Username & Mid(lpBuff, i, 1)

Next

--------------------------------------------------------------------------
--
----------------------

Any help would be highly appreciated.

TIA,

Gary