32bitでも64bitでも作動する事を確認してます。(Win7 64bit)
操作をしたユーザの記録を取りたい時などに利用すると良いかと思います。
以下のサンプルは、ファンクションなので
Range("A1") = myLoginName
と記述すればA1セルへユーザ名が代入されます。
Option Explicit
Function myLoginName()
On Error GoTo ln_er
'ネットワークログインID取得
Dim UseId As Object
Set UseId = CreateObject("WScript.Network")
myLoginName = UseId.UserName
Set UseId = Nothing
Exit Function
ln_er:
MsgBox Err.Number & ":" & Err.Description, vbCritical, "システムエラー"
End Function