VB Snippet - Get Windows User Name

VB Code:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Function UserName() as String
 
    Dim strBuffer As String * 25
    
    Dim ret As Long
 
    ret = GetUserName(strBuffer , 25)
    
    UserName = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
 
End Function