Data Type VisualBasic Script

Sub InstrLeft()
    Dim userName As String
    Dim firstName As String
    Dim spaceLoc As Integer
    userName = "First Last"
    spaceLoc = InStr(1, userName, " ")
    firstName = Left(userName, spaceLoc - 1)
    Debug.Print firstName
End Sub