Sempre que vejo em post's em fóruns a pergunta sobre pegar o username do usuário logado, temos respostas que trazem somente o id da conta e não o nome completo do usuário. Pesquisando na net achei este código que trás o nome completo do usuário logado :

Sub GetUserFullName()

Set WSHnet = CreateObject("WScript.Network")

UserName = WSHnet.UserName

UserDomain = WSHnet.UserDomain

Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")

UserFullName = objUser.FullName

MsgBox "User Full Name: " & vbCrLf & vbCrLf & UserFullName, vbInformation, "User Full Name"

End Sub