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