1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

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

sub command1_click()
dim Buffer as string, UsrName as String
buffer = string(255,chr(0))
call GetUsername (buffer, len(buffer))
UsrName=left(Buffer,instr(1, Buffer, chr(0))-1)

msgbox UsrName, 0, "Benutzername"

end sub

1:

UsrName=left(Buffer,instr(1, Buffer, chr(0))-1)