Vba 右+；Application.UserName

我正在尝试将函数RIGHT和Application.UserName结合起来

用户名是史密斯，约翰。我只想要一个名字——约翰。 我试着像下面这样做，但不起作用

Sub test ()
Dim x as string
x = Right(Application.Username, Len(Application.UserName) - Application.UserName.Find(" ",Application.UserName, 1))
End Sub

你能给我个建议吗

---

谢谢，

没有

查找
应用程序的方法。用户名

使用
拆分
：

Dim splitName
splitName = Split(Application.UserName)

Debug.Print splitName(Ubound(splitName)) '<~ returns John

Dim splitName
splitName=Split（Application.UserName）
“打印splitName（Ubound（splitName））”有效。谢谢：）