Pentru a afla cât de lung este șirul, se folosește funcția Len. Sintaxa pentru funcția Len este simplă:
Len(string)
Aici, string poate fi orice expresie validă de tip string. (Dacă string este Null, Len returnează tot Null.)
Funcția Len poate fi folosită pentru a verifica dacă datele introduse de utilizator într-un câmp text dintr-un formular are lungimea corectă. De exemplu, numărul unui telefon - 10 cifre.
Procedura VerificaParola de mai jos folosește funcția Len pentru a verifica dacă parola introdusă de utilizator este destul de dificil de ghicit, dar nu prea lungă.
Testarea lungimii parolei folosind funcția Len
1. Sub VerificaParola()
2. Dim strParola As String
3. AltaParola:
4. strParola = InputBox _
("Introduceti parola pentru a impiedica modificarea acestui element:" _
, "Introducere parola ")
5. If Len(strParola) = 0 Then
6. End
7. ElseIf Len(strParola) < 6 Then
8. MsgBox "Parola aleasă este prea scurta." _
& vbCr & vbCr & _
"Alegeți o parolă care să aiba intre 6 si 15 caractere.", vbOKOnly + vbCritical, "Parola prea scurta"
9. GoTo AltaParola
10. ElseIf Len(strParola) > 15 Then
11. MsgBox "Parola aleasa este prea lunga." _
& vbCr & vbCr & _
" Alegeți o parolă care să aiba intre 6 si 15 caractere.", vbOKOnly + vbCritical, " Parola prea lunga "
12. GoTo AltaParola
13. End If
14. End Sub
Codul verifică dacă parola introdusă conține între 6 și15 caractere (inclusiv). Iată cum funcționează codul: