Dim Letra_N As String
    Dim Numero_Letras
    Dim Caracter_Actual As String
    Dim Suma_1 As String
    Dim Numero_M1 As String
    Dim Numero_M2 As String
    Dim Letra_B As Boolean
    Public Sub Conv_ASCII()
        Select Case Letra_N
            Case "A"
                Letra_N = 65
            Case "B"
                Letra_N = 66
            Case "C"
                Letra_N = 67
            Case "D"
                Letra_N = 68
            Case "E"
                Letra_N = 69
            Case "F"
                Letra_N = 70
            Case "G"
                Letra_N = 71
            Case "H"
                Letra_N = 72
            Case "I"
                Letra_N = 73
            Case "J"
                Letra_N = 74
            Case "K"
                Letra_N = 75
            Case "L"
                Letra_N = 76
            Case "M"
                Letra_N = 77
            Case "N"
                Letra_N = 78
            Case "O"
                Letra_N = 79
            Case "P"
                Letra_N = 80
            Case "Q"
                Letra_N = 81
            Case "R"
                Letra_N = 82
            Case "S"
                Letra_N = 83
            Case "T"
                Letra_N = 84
            Case "U"
                Letra_N = 85
            Case "V"
                Letra_N = 86
            Case "W"
                Letra_N = 87
            Case "X"
                Letra_N = 88
            Case "Y"
                Letra_N = 89
            Case "Z"
                Letra_N = 90
        End Select
    End Sub
    Public Sub Reinicio()
        Letra_N = 0
        Caracter_Actual = 0
        Suma_1 = 0
        Numero_Letras = 0
        Nombre.Text = ""
    End Sub
    Private Sub Nombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nombre.TextChanged
        Nombre_Mayus.Text = Nombre.Text
        Numero_Letras = Nombre_Mayus.TextLength
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        While Numero_Letras > 0
            Letra_N = Nombre_Mayus.Text.Chars(Caracter_Actual)
            Conv_ASCII()
            If Letra_N > 20 Then
                If Letra_N > 90 Then
                    Letra_N -= 30
                End If
            End If
            Suma_1 = (Suma_1 * 1) + (Letra_N * 1)
            Caracter_Actual += 1
            Numero_Letras -= 1
        End While
        Suma_1 = Suma_1 Xor 4660
        Suma_1 = Suma_1 Xor 22136
        MsgBox(Suma_1, MsgBoxStyle.Exclamation, "Numero de Serie:")
        Reinicio()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Suma_1 = 0
        Caracter_Actual = 0
    End Sub