|
Sub AboutUser()
Dim fullName As String
Dim firstName As String
Dim lastName As String
Dim space As Integer
fullName = InputBox("Enter first and last name:")
space = InStr(fullName, " ")
firstName = Left(fullName, space - 1)
lastName = Right(fullName, Len(fullName) - space)
Debug.Print lastName & ", " & firstName
End Sub
|