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