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