Attribute VB_Name = "Benutzer"
    'declaration der funktion GetUserName(...)
Private Declare Function GetUsername Lib "advapi32.dll" Alias "GetUserNameA" (ByVal strUsername As String, ByRef lSize As Long) As Boolean
 
    'auslesen des benutzernamens
Sub Benutzername()

Dim strUsername As String
strUsername = String(300, 0)

Dim lSize As Long
lSize = 256

Dim bRet As Boolean
bRet = GetUsername(strUsername, lSize)

MsgBox strUsername

End Sub