Proyecto De Dni En Sql

Public Class Form1
REM declaracion de variables
Dim a, b, c, As single

REM contenido del formulario
Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress
If Me.Text1.Text 8 Then
Me.Label2='ERROR'
End If
If keyAscii = 13 Then
If Len(Text1.Text) < 8 ThenMe.Label2.='ERROR'
Else
a = (Val(Text1.Text)) / 23
b = a '23
c = Val(Text1.Text) - b
Select Case 0Case 0
Me.Label2 = Text1.Text + "-T"
Case 1
Me.Label2 = Text1.Text + "-R"
Case 2Me.Label2 = Text1.Text + "-W"
Case 3
Me.Label2 = Text1.Text + "-A"
Case 4
Me.Label2 = Text1.Text + "-G"Case 5
Me.Label2 = Text1.Text + -"-M"
Case 6
Me.Label2 = Text1.Text + "-Y"
Case 7Me.Label2 = Text1.Text + "-F"
Case 8
Me.Label2 = Text1.Text + "-P"
Case 9
Me.Label2 =Text1.Text + "-D"
Case 10
Me.Label2 = Text1.Text + "-X"
Case 11
Me.Label2 = Text1.Text + "-B"Case 12
Me.Label2 = Text1.Text + "-N"
Case 13
Me.Label2 = Text1.Text + "-J"
Case 14Me.Label2 = Text1.Text + "-Z"
Case 15
Me.Label2 = Text1.Text + "-3"
Case 16
Me.Label2 = Text1.Text...