Option ExplicitPrivate Sub Form_Load()Dim Cadena As StringCadena = "Hola"MsgBox Len(Cadena) 'Devuelve un 4End Sub
Dim TamanoCadena As Long Dim MiCadena As String MiCadena = "Mi nick es ka0s" TamanoCadena = Len(MiCadena)
If Len(string) > 4 then bla bla blaSelect Case X if Len(x)=2 Then bla bla