gelöst
Public Function fnc_GetUsername() As String fnc_GetUsername = Environ("Username") End Function