Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

InStr()

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