VBA/Excel/Access/Word/String Functions/InStr

Use MsgBox(), InStr(), Left(), Right() and Len() to read the first name and last name

   <source lang="vb">

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

</source>