Application.Username modification not working as expected

[michaeltsmith93]

I'm using the following to convert Application.Username which is formatted "Last, First" to "First Last". For my name, it is working, but for a colleague it is not. I am baffled. The result for my colleague is "h, John Smith". I have had her select all and retype it, and it's still not working. Thoughts? I don't want to use Environ because it's variable at my company.

FullName = Application.UserName
FirstName = Right(FullName, InStr(1, FullName, " ", vbTextCompare) + 1)
LastName = Left(FullName, InStr(1, FullName, ",", vbTextCompare) - 1)
FirstLast = FirstName & " " & LastName

 

[Fluff]

What is the Username to begin with?

 

[michaeltsmith93]

It's "Last, First".

 

[Fluff]

That's not going to give "h, John Smith"

but try

FirstName = Right(FullName, Len(FullName) - InStr(1, FullName, " ", vbTextCompare) + 1)

 

[michaeltsmith93]

Haha right you are! You see it's pulling the last letter and the comma though.

I'm having her try it now. Will let you know shortly. This is so bizarre. Clever solution you came up with, using the correctly functioning LastName.

 

[michaeltsmith93]

It appears to be working--thank you, Fluff.

 

[Fluff]

You're welcome & thanks for the feedback