The following code returns an error on desk or laptops that are loaded with the IE 4.0 browser. It hangs up on the Chr function and states that required libraries are not loaded. Is there a work around on this, 90% of our company is working with IE4.0

Dim llReturn As Long
Dim lsUserName As String
Dim lsBuffer As String
Dim findSuper As String

lsUserName = ""
lsBuffer = VBA.Space$(255)
llReturn = GetUserName(lsBuffer, 255)

If llReturn Then
lsUserName = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)
End If
findSuper = lsUserName

This code works fine on the desktops that are running IE5.5 but I'm not certain that it is a browser issue.