Use MsgBox(), InStr(), Left(), Right() and Len() to read the first name and last name : InStr « String Functions « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. String Functions
3. InStr

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

 
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

 

Related examples in the same category