Public Class frmChapa
    Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
        'declaro la cadena de caracteres
        Dim texto As String

        'declaro las variables de control
        Dim x As Integer
        Dim y As Integer

        'declaro variable que almacena cada caracter de la cadena
        Dim caracter As Char

        'variable que me va a ir contando cada vez que encuentre un caracter repetido
        Dim CaracterRepetido As Integer

        'le asigno a la variable texto los datos ingresados por el usuario en la caja de texto
        texto = Me.txtCalcular.Text

        'controlo si la caja de texto no esta vacia
        If Me.txtCalcular.Text.Length = 0 Then
            MessageBox.Show("Ingrese la cadena de caracteres", "Calcular", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            'Uso dos estructuras repetitivas para controlar, tomo el primer caracter y los controlo con todos los demas, luego paso
            'al segundo y asi sucesivamente, al encontrar uno lo cuenta...
            CaracterRepetido = 0
            For x = 0 To texto.Length - 1
                caracter = texto.Chars(x)
                For y = 0 To texto.Length - 1
                    If y <> x Then
                        If caracter = texto.Chars(y) Then
                            CaracterRepetido = CaracterRepetido + 1
                        End If
                    End If
                Next
            Next
            'por ultimo si el contador es igual a 0 quiere decir que no encontro ninguna caracter repetido sino si encontro caracteres 
            'repetidos y manda el msj
            If CaracterRepetido <> 0 Then
                MessageBox.Show("Se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("No se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
        CaracterRepetido = 0
    End Sub
End Class