Dim username As String
Dim slength As Long
Dim retval As Long

username = Space(255)
slength = 255

retval = GetUserName(username,slength)
username = Left(username,slength-1)