Cuenta letras VB.NET

    'Este programa se ha desarrollado con finalidad didáctica por lo tanto el creador como el

    'distribuidor de dicho código no se hacen responsable por mal uso de dicho programa o por

    'fallos de dicha aplicación.

    'Puesto que es un proyecto de código abierto usted puede modificar el código si así lo

    'desea u ocuparlo libre mente.

    'Desarrollador: Gustavo Ortiz

    'Web: http://codigosfuentes.host56.com/

    'Blog: http://codigosfuentespuntonet.blogspot.com/

    Public Function CuentaLetrasFibraOptica(ByVal cadena As String) As String

        cadena = UCase(cadena)

        Dim n As Integer

        Dim sonLetras As Integer = 0

        Dim sonDigitos As Integer = 0

        Dim espacios As Integer = 0

        For n = 0 To Len(cadena) - 1

            If Asc(cadena(n)) > 64 AndAlso Asc(cadena(n)) < 91 Then

                sonLetras = sonLetras + 1

            End If

        Next

        For n = 0 To Len(cadena) - 1

            If Asc(cadena(n)) > 47 AndAlso Asc(cadena(n)) < 58 Then

                sonDigitos = sonDigitos + 1

            End If

        Next

        For n = 0 To Len(cadena) - 1

            If Asc(cadena(n)) = 32 Then

                espacios = espacios + 1

            End If

        Next

        Return "# Caracteres " & Len(cadena) & vbLf & _

        "# Letras " & sonLetras & vbLf & _

        "# Digitos " & sonDigitos & vbLf & _

        "#Spc EnBlanco " & espacios

    End Function