Hi Todd
why not create an additional function like

Public Function Get_Str_UserName()
Dim UName As String * 255
Dim nn
Dim L As Long: L = 255
Dim Res As Long
Res = GetUserName(UName, L)
UName = Left$(UName, L - 1)
nn = Trim(UName)
Get_Str_UserName = nn
End Function

Now call this function from your other module.
Another option would be to create a public variable and initialize this
variable in the workbook_open event. But I'd prefer using a function
like shjown above for this

--
Regards
Frank Kabel
Frankfurt, Germany

"Todd Htutenstine" schrieb im
Newsbeitrag ...
Because the username function is in another module and I
need to reference variable nn.
-----Original Message-----
Hi
and what's your problem. 'nn' contains the Windows user
name which you
could check with an added statement like
msgbox nn


--
Regards
Frank Kabel
Frankfurt, Germany

"Todd Huttenstine"
schrieb im
Newsbeitrag ...
I cant get this to work. heres what I did...

Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long

Public Sub WindowsUserName()
Dim UName As String * 255
Dim nn
Dim L As Long: L = 255
Dim Res As Long
Res = GetUserName(UName, L)
UName = Left$(UName, L - 1)
nn = Trim(UName)
End Sub



-----Original Message-----
Can't you just run the function again?

If not, save the result as a Module scope variable.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the
Purbecks
(remove nothere from the email address if mailing
direct)

"Todd Huttenstine"

wrote in message
...
hey guys I have a function and need to preserve its
value
once the function ends. I need to store this value
as a
variable in another module. Is this possible?


Todd Huttenstine


.


.