本示例显示当前的用户名。
MsgBox "当前用户是: " & Application.UserName