CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_curuser.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

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

Public Function OVBAde_GetUserName() As String
  Const lLEN As Long = 255
  Dim lRet As Long
  Dim sUserName As String
    
    sUserName = String$(lLEN - 1, 0)
    lRet = aGetUserNameA(sUserName, lLEN)
    
    If lRet <> 0 Then
        OVBAde_GetUserName = Left$(sUserName, lLEN - 1)
    Else
        OVBAde_GetUserName = ""
    End If
    
End Function

Public Function BENUTZERNAME() As String
    BENUTZERNAME = OVBAde_GetUserName()
End Function