Split a variable

Dim myUser As String

myUser = Environ("username")

FirstName = Split(myUser, " ")(0) 'Right of Space

LastName = Split(myUser, " ")(1) 'Left of Space

FirstNameInitial = Left(FirstName, 1)