String Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. String Functions
  4. 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