Visual Basic 2008 vraagje "Textbox"

[azb100]

L. S.

Ik heb een vraagje. Ik heb een textbox waar de gebruiker een serial in moet typen. Deze invoer mag maximal 5 tekens zijn en ik wil graag dat deze wordt gesplitst elke karakter dus:

Text voor

72836
Text na
7
2
8
3
6

en deze karakters wil ik dan (geen idee hoe het heet) maar ik wil deze als
Dim BOX1 as decimal
en dan wil ik deze bij mekaar optellen en als het een bepaald getal is dan klopt de invoer?! iemand een idee hoe ik dit moet doen?

Met vriendelijke groet,

Azb100:thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb:

 

[C Windows]

    Private Function CheckSerial(ByVal strSerial As String) As Boolean
        Dim intSerial As Integer = 0

        For intCounter As Integer = 0 To strSerial.Length - 1
            intSerial += Val(strSerial.ToArray(intCounter))
        Next

        If intSerial = 26 Then
            Return True
        Else
            Return False
        End If
    End Function

Als de getallen bij elkaar opgetels 26 zijn, is de serial geldig en anders niet.
Mocht je het niet zo bedoelen kan je dat makkelijk aanpassen

 

[azb100]

Thanks

Dankje wel. nu kan ik eindelijk mijn programma afmaken! dankje!!:thumb::thumb: