本示例显示当前的用户名。

MsgBox "当前用户是: " & Application.UserName