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